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ABSTRACT 


This  report  describes  CRASS,  a  two-pass  cross- 
assembler  for  the  TI-9900  microprocessor.  The  assembler 
was  written  in  GIRL-FORTRAN  to  be  used  on  a  PDP-11 
computer  with  an  RT-11  operating  system.  It  uses  the 
standard  TI9900  mnemonics  and  allows  for  most  of  the 
same  assembly  time  directives. 

CRASS  has  the  following  features: 

f  Symbolic  memory  addressing 

«  Portability  -  Since  CRASS  is  written  mostly  in 
FORTRAN,  it  can  be  easily  adapted  to  any  machine 
having  a  FORTRAN  IV  compiler^. 

•'  Left  to  right  arithmetic  expression  handling  in 
binary,  decimal,  or  hexadecimal^ 

•  Logical  expression  handling 

•  Specified  program  starting  address;  however, 
there  is  a  default  value.  A  t  j 

•  Less  program  assembly  time  than  with  the  TI 
assembler  since  the  code  which  is  created  is 
non-relocatable  and  therefore  does  not  require 
a  linkage  step. 


ADMINISTRATIVE  INFORMATION 

This  work  was  performed  in  the  Computer  Science  Division  of  the  Computations 
Mathematics,  and  Logistics  Department  under  the  sponsorship  of  NAVSUP  043C,  Task 
Area  TF60531091,  Work  Unit  1800-008. 

INTRODUCTION 

This  report  describes  CRASS,  a  two-pass  cross-assembler  for  the  TI9900  micro 
1  2 

processor.  The  assembler  was  written  in  GIRL  -FORTRAN  to  be  used  on  a  PDP-11 
computer  with  an  RT-11  operating  system.  It  uses  the  standard  TI9900  mnemonics  a 
allows  for  most  of  the  same  assembly-t ime  directives. 

CRASS  has  the  following  features: 

•  Symbolic  memory  addressing 

•  Portability  -  Since  CRASS  is  written  mostly  in  FORTRAN,  it  can  be  easily 
adapted  to  any  machine  having  a  FORTRAN  IV  compiler. 

•  Left  to  right  arithmetic  expression  handling  in  binary,  decimal,  or 
hexadec imal 


*A  complete  listing  of  references  is  given  on  page  83. 


•  Logical  expression  handling 

•  Less  program  assembly  time  than  with  the  TI  assembler  since  the 
code  which  is  created  is  non-relocatable  and  therefore  does  not 
require  a  linkage  step. 

Although  program  debugging  would  take  less  assembly  time  with  relocatable 
code,  the  time  difference  is  not  considered  significant  for  our  purposes. 

Several  uses  for  the  TI9900  microprocessor  are  envisioned.  All  these  projects 
will  require  rapid  software  development.  These  projects  include  use  of  the  Tl 
microprocessor  to: 

•  Control  an  "intelligent"  Logistics  Communication  Terminal  between 
the  SNAP  II*  and  NAVMACS**  systems. 

•  Control  the  interface  between  a  hardware  associative  memory  and  the 
PDP-11  computer. 

•  Provide  the  computing  power  for  an  experimental  distributed 
microprocessor . 

•  Provide  the  interface  for  other  similar  man-machine  and  machine- 
machine  projects  (such  as  signature  verification). 

USING  CRASS 

GENERAL  DISCUSSION 

An  assembly  language  program  may  be  assembled  on  the  PDP-11  by  executing  the 
CRASS. SAV  file.  If  this  file  is  on  the  system  disk,  the  form  is: 

R  CRASS 

The  program  will  respond  by  asking  for  the  input  and  output  file  names: 

"PLEASE  ENTER  FILE  NAMES  IN  COMMAND  STRING  FORM" 

The  command  string  format  for  CRASS  is: 

"output  file  1  [,  output  file  2)  =  input  file" 

The  first  output  file  contains  the  absolute  object  code  and  has  a  default 
extension  name  "ABS."  The  second  output  file  is  optional.  It  contains  the  source 
and  identification  listing  if  the  "LIST"  directive  is  included  in  the  assembly 
program.  This  file  has  a  default  extension  name  "LST."  Note  that  the  RK1  disk 
unit  must  be  turned  on,  since  CRASS  places  one  of  its  temporary  scratch  files  there. 

*Shipboard  Nontact ical  ADP  Program. 

**Naval  Modular  Automated  Communications  System. 


CONSTANTS  AND  EXPRESSIONS 
Hollerith  Constants 

Hollerith  constants  are  delineated  by  either  a  pair  of  quotes  (')  or  a  pair  of 
dollar  signs  ($),  for  example: 

LABL1  BYTE  ’A',  'X',  $Y$; 

LABL2  DATA  $AB$,  'XY'; 

LABL3  TEXT  ' ABCDE' ; 

LABL4  TEXT  $TODAY'S  DATE  IS$; 

LABL5  TEXT  'COST  IS  $5.00'; 

The  following  statements  produce  identical  code: 

BYTE  'A' ,  'B' ,  'C' ,  'D' ,  ’E' ,  ' F ' ; 

DATA  'AB' ,  'CD' ,  'EF' ; 

TEST  'ABCDEF' ; 

A  aiscussion  of  the  limitations  on  these  directives  may  be  found  in  the  section  on 
limitations  and  differences  with  the  TI  assembler  and  also  in  the  TI9900  Manual,1 
Section  7,  page  10. 

Numerical  Constants 

Numerical  constants  may  be  expressed  in  decimal,  binary,  or  hexadecimal  form. 
Default  is  decimal;  binary  numbers  are  preceded  bv  a  percent  sign  (')  and  hoxadec ima J 
numbers  are  preceded  by  a  "greater  than"  operator  (  >.  The  minus  sign  (- )  precedes 
either  "%"  or  ">"  for  negative  numbers.  The  following  limitations  are  in  el  feet: 

Integer  +  12767 

Binary  +%  1 L 1  1111  1111  I  I  1 1 

Hexadecimal  -7FEK,  -  /fit 

I. dent  if  i  er  s 

All  identifiers  must  begin  with  an  alphabetic  character.  Die  length  of 
identifiers  is  limited  (solely  by  the  fixed-input  format  lot  labels)  to  six 
characters . 

Logical  and  Numerical  Operators 

CRASS  allows  for  the  following  logical  operations: 


Operator 

Function 

.+ 

Logical  OR 

_  * 

Logical  AND 

Logical  NOT  (one's  complement) 

./ 

Modulo 

Arithmetic  functions  are 

performed  with  the  four  standard  operators 

+ ,  * ,  - ,  and  / . 


Logical  and  Numerical  Expressions 

All  expressions  are  evaluated  strictly  on  a  left  to  right  basis  with  no 
parentheses  allowed. 

For  example:  X  EQU  3+4*5; 

X  is  set  to  35,  not  23. 

Also,  expressions  must  be  resolved  within  two  passes. 

For  example, 

DATA  X+3 ; 

X  MOV  Rl.R'Z; 

will  be  correctly  evaluated.  However, 


1) 

A 

EQU 

B+C 

2) 

T> 

L> 

rnrt 

“H  - 

Cl  D 

3) 

C 

EQU 

10 

4) 

D 

EQU 

5; 

will  not  be  correctly  evaluated  since  "B"  will  not  be  resolved  until  the  second  pass 
examines  statement  number  two. 

Logical  expressions  follow  the  same  structure  and  are  evaluated  in  the  same 
manner  as  numerical  expressions. 

For  example: 

X  BYTE  F.+/11001 .*10; 

places  "0A"  into  the  appropriate  byte  and 

Y  BYTE  F. *71001 .+10; 

places  "OB"  into  the  appropriate  byte 
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INPUT  FORMAT 

Assembly  statements  consist  of  the  following  four  fields: 

is  n 

LABEL  INSTRUCTION  OR  DIRECTIVE  OPERAND  FIELD  COMMENTS 

1  he  label  may  be  placed  anywhere  in  ;>o  ■■ft  ions  l- A.  Up  to  six  alphanutne.i  i < 

characters  are  allowed,  the  first  of  which  must  be  alphabetic.  li  an  asterisk  (*f 

is  placed  anywhere  in  the  label  field,  the  enlire  statement  is  treated  as  a  comment. 

Instructions  and  assembler  directives  must  begin  in  position  8.  Since  the 

collection  of  instructions  and  directives  available  with  CRASS  is  smaller  than  that 

offered  by  the  TI  assembler,^-  the  reader  is  referred  to  Table  2  on  page  6  and  Tabic 

3  on  page  7  for  instructions  and  directives  available  with  CRASS.  The  reader  is 

also  referred  to  pages  6-18  through  6-60  and  pages  7-8  througli  7  —  1 A  from  the  II 

,  1 

Manual  . 

Operands  may  be  placed  anywhere  from  position  13  to  position  72.  Operand 
fields  are  separated  by  commas  and  the  last  field  must  be  terminated  by  a  semicolon 
(;).  Comments  may  be  placed  after  the  semicolon.  Instructions  and  directives  which 
do  not  use  the  operand  field  do  not  require  a  semicolon.  Arithmetic  expressions 
must  not  contain  any  embedded  blanks.  Operand  formats  are  discussed  in  the  next 
section . 

OPERAND  FORMATS 

The  entire  T19900  instruction  set  requires  twelve  formats  for  the  operand  field. 
The  format  descriptions  are  listed  in  Table  1.  The  formats  for  the  instruction  t 

are  summarized  in  Table  2.  The  formats  for  the  directives  are  summarized  in 
Table  3 . 


TABLE  1  -  INSTRUCTION  OPERAND  FORMAT  DESCRIPTIONS 


Symbo 1 

De script  ion 

S 

Modifiable  source  address 

D 

Modifiable  destination  address 

W 

Unmodified  workspace  register 

I)  IS 

Displacement  in  bytes  (displacement 
is  in  words  for  the  'll  assembler) 

c 

Count:  integers  0-13 

I0P 

Immediate  operand  value 

If  1 T 

Integer  U-2V| 

TABLE  1  (Continued) 


Operand  Format  No. 


Description 


IMS 

s,w 

s,c 

w,c 

s 

NONE 
W,  IOP 

S,W  (uses  W.  and  W 
BIT  1 


TABLE  2  -  INSTRUCTION  OPERAND  FORMAT  NUMBERS 


TABLE  3  -  DIRECTIVE  OPERAND  FORMATS 


Directive 

— 

Directive 

Number 

Format 

AORG 

1 

expression;  (address) 

BSS 

3 

expression ; 

BYTE 

4 

expression^,  .  .  .  ,  expression^; 

N£19,  if  PC  is  odd 

N<20,  if  PC  is  even 

DATA 

5 

expression^,  .  .  .  ,  expression^;  N<10 

DXOP 

8 

format  6 

END 

9 

none 

EQU 

10 

expression; 

EVEN 

11 

none 

LIST 

13 

none 

TEXT 

17 

Literal-list  of  N  characters 

Nfl9,  if  PC  is  odd 

N<20,  if  PC  is  even 

/ 

20 

expression; 

NOTES: 

1.  Slash  is  equivalent  to  the  AORG  directive. 

2.  Slash  must  be  in  column  8. 


LIMITATIONS  AND  DIFFERENCES  WITH  THE  TI  ASSEMBLER 

The  following  (known)  differences  are  listed  in  no  particular  order. 

1)  The  input  format  for  CRASS  is  quite  rigid 
Label  -  anywhere  in  columns  1-6 

Instructions  and  Directives  -  must  begin  in  column  8 
Operand  Field  -  anywhere  in  columns  13-72. 

2)  The  jump  instructions  accept  the  value  in  the  operand  field  as  a  quantity  of 
bytes,  whereas  the  TI  assembler  uses  the  operand  value  as  a  word  quantity. 

The  operand  value  must  be  in  the  range  -256  to  +254  bytes. 

3)  Registers  0  through  15  must  be  referred  to  as  "RO,"  "Rl,"  .  .  .  ,  "R15" 

4)  Hollerith  (literal)  data  must  be  bounded  by  either  a  pair  of  dollar  signs  ($) 
or  a  pair  of  apostrophies  ('). 

5)  The  current  location  may  be  referred  to,  in  CRASS,  with  an  exclamation  point 
(!).  The  TI  assembler  uses  a  dollar  sign  ($). 


» 


6)  DXOP.  The  format  for  this  directive  in  CRASS  is: 

name  DXOP  extended  operations  number; 

The  format  used  by  the  TI  assembler  is: 

DXOP  name,  extended  operations  number; 

Note  that  the  extended  operation  name  should  not  be  used  as  an  ordinary  label. 

7)  Assembly  time  constants  and  other  operands  must  be  resolved  within  two  passes 
of  the  source  program.  For  example,  the  following  statements  will  be  correctly 
resolved : 

A  EQU  B; 

B  EQU  2 ; 

For  the  following  statements,  "A"  would  not  be  properly  resolved: 

A  EQU  B; 

B  EQU  C; 

C  EQU  3; 

8)  To  redefine  the  program  counter  (PC),  both  CRASS  and  the  TI  assembler  will 
accept : 

AORG  absolute  value; 

CRASS  will  also  accept  a  slash  (in  column  8): 

/  absolute  value; 

9)  Expression  evaluation.  Both  assemblers  evaluate  expressions  from  left  to  right. 
However,  on  the  TI  assembler,  a  unary  minus  is  performed  first.  For  example, 

Labell+Valuel+(-Value2 ) 

is  legal  with  the  TI  assembler  but  not  with  CRASS. 

10)  Logical  operators  are  legal  in  CRASS  but  do  not  appear  to  be  in  the  TI 
assembler. 

The  operators  are: 

.+  Logical  OR 

. *  Logical  AND 

.-  Logical  NOT  (l's  complement) 

./  Modulo 

11)  Individual  BYTE,  DATA,  and  TEXT  statements  are  limited  to  a  total  of  20 
characters  in  the  operand  field,  19  if  the  current  value  of  the  program  counter  (r'C) 
is  odd.  The  following  statements  are  examples  of  the  BYTE,  DATA,  and  TEXT  directives 
in  which  the  operands  contain  the  maximum  number  of  allowable  characters. 
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BYTE  1,  2,  3,  4,  5,  6,  7,  8,  9, 

0 ,  >A ,  >B ,  >C ,  >D ,  >E ,  >F , 

'W  ,  'X'  ,  'Y'  ,  'Z' ; 

DATA  * AB 1 , ' CD ' , ' EF ' , ' CH 1 ,  1 J ' , ' KL ' ,  'MN* , 'OP' , 'QR' , 'ST' ; 


TEXT  $ABCDEFGHIJKLMNOPQRST$ ; 

12)  CRASS  requires  133,200g (46, 720)  bytes,  or 

55,500o  (23,360..)  words  plus  space  for  the  I/O 

o  1U 

buffers  in  order  to  execute  on  a  PDP-11. 

This  memory  requirement  can  be  reduced  should  space  become  a  consideration. 

ERROR  CODES 

CRASS  separates  error  conditions  into  three  categories: 

1)  Multiple  label  definition 

2)  Nonexistant  instruction  name  or  assembler 

directive 

3)  All  errors  which  originate  in  the  operand  field,  such  as: 

a)  Undefined  memory  references 

b)  Semantic  errors,  such  as  nr.t  using  a  workspace 
register  as  the  source  field  operand  for  input 
format  5 

c)  Exceeding  jump  displacement  limitations 

d)  Exceeding  20  characters  for  the  DATA,  BYTE,  or 
TEXT  directives. 

When  an  error  is  caught  on  pass  two,  a  message  which  describes  the  line 
status  is  sent  to  the  terminal.  The  line  status  codes  are  given  in  Table  4. 

TABLE  4  -  LINE  STATUS  ERROR  CODES 


Error _ 

Label 

Instruct  ion 
Operand  Field 


Line  Status 


The  line  status  is  cumulative  1  or  each  category  of  error  found  in  a  statement. 
Thus,  a  statement  with  a  multiply-defined  label  and  an  incorrect  instruction  name 
will  have  a  line  status  of  2  +  4  =  6. 

PROGRAM  DESCRIPTION 

DATA  STRUCTURES  USED  BY  CRASS 

3 

CRASS  employs  the  Graph  Information  Retrieval  System  to  create,  store,  and 

retrieve  its  key  data  structures.  Both  the  Identifier  and  Op  Code-Directives  are 

stored  in  EPAM  tree  data  structures. 

These  graphs  are  composed  of  source  node  -  link  -  sink  node  triples  as 
2 

translated  by  GIRL.*"  Another  way  of  referring  to  these  triples  is  to  say  that  the 
source  node  is  related  to  the  sink  node  by  the  link.  For  example,  if  the  following 
relationships  were  to  be  inserted  into  a  graph,  using  GIRL,  they  would  appear  as 
follows : 

1)  A  is  related  to  C  by  B 

G  ABC 

2)  A  is  related  to  G  and  0  and  E,  by  B 

G  A  B  (C,  D,  E) 

3)  A  is  related  to  C  by  B  and  C  is  related  to  E  by  D 

C  A  B  C  D  E 

4)  A  is  related  to  C,  1),  and  E,  by  B  and  also  D  is  related 
to  A  by  F 

G  A  B  (C,  D  F  A,  E) 

Also  discussed  in  this  section  are  the  "label,"  "token,"  and  "item" 
(Intermediate  code)  strings  which  are  created  in  the  first  pass. 

Examples : 

1)  Instruction-Directive  Tree 

This  structure  is  created  by  a  GIRL  program  called  CRSC.EN. 

It  is  executed  before  CRASS  is  run  and  need  be  re-executed  only  if  either  the 
instruction  set  or  assembler  directive  set  is  changed.  The  entire  program  is 
listed  in  Appendix  A. 

As  an  example,  the  GIRL  statement  representing  the  entire  subgraph  for  directives 
and  op  codes  beginning  with  the  letter  "D"  is  shown: 


r 


DATA 

DIV  ; 

DEC 

DORG 

DECT 

DXOP 

DEF 

* 

(Note 

that  the  dollar 

signs 

($)  indicate  that,  although  the  particular  node  1 

represents  a  unique  state  within  the  graph,  it  does  not  require  a  unique  name.) 

• 

4 

C 

G 

START  D  $ 

(A  $ 

T  $  A  $  DIRECT  "5," 

\ 

G 

1 

E  $ 

(C  $  (0PFIN("6, " * / / 06 * ) , 

G 

2 

T  $  0PFIN("6, "7/06', 7/40')), 

G 

3 

F  $  DIRECT  "6")) 

\ 

G 

4 

(I  $ 

V  $  OPFIN ("9* , '//3C' ) , 

1 

G 

5 

0  $ 

R  $  G  DIRECT  "7", 

4 

G 

6 

X  $ 

0  $  P  $  DIRECT  "8") 

The  root  node  for 

this 

graph  is  called  "START."  There  are  two  types  of 

1 

' 

terminal  nodes.  The  terminal  node  for  each  directive  (final  link  =  "DIRECT")  con-  i 

tains 

a  unique  identifying  integer  from  1  to  20.  For  example: 

DATA  - 

5 

DEF 

6 

| 

DORG  - 

7 

DXOP  - 

8 

i 

i 

The  terminal  node  for  each  op  code  (final  link  =  "OPFIN")  describes:  J 

— 

a)  which  of  the  twelve  formats  the  operand  field  and  object  code 
may  take,  and 

b)  a  skeleton  code  which  forms  the  basis  for  the  object  code.  For  example, 
the  DIV  instruction  uses  format  nine  and  has  a  skeleton  code  of  "3C."  The 
statement : 

DIV  R2 ,  Rl; 

produces  "3C42"  as  the  object  code. 

The  nodes  which  are  represented  by  dollar  signs  represent  uniquely  defined 
random  nodes.  [  . 

2)  Identifier  Tree 

This  graph  is  created  largely  during  the  assembler's  first  pass. 

When  an  identifier  is  first  encountered,  it  is  added  to  the  graph,  letter  by 

letter.  That  is,  each  letter  is  a  potentially  new  link  in  the  graph.  . 

If  the  identifier  is  first  encountered  in  the  label  field,  it  is  given  a 
value  equal  to  the  current  location  of  the  program  counter  (PC)  and  its  status  is 
set  to  "def ined-fullword . "  If  the  first  encounter  is  in  the  operand  field,  the 


identifier  is  given  a  value  of  zero  and  its  status  is  set  to  "undefined."  The 
root  node  for  this  graph  is  called  "SYMBOL."  The  following  GIRL  statements 
represent  a  sample  subgraph  containing  a  highly  correlated  set  of  identifiers: 


BLACK 

BLOCK 

BL0CK1 


BL0CK4 

BLOCKS 


G 

G 

G 

G 

G 


SYMBOL  B  $L$  (A$C$K$  STOP  ("address,"  "status"), 

1  0  $  C  $  K  $  (STOP  ("address,"  "status"), 

2  ONE  STOP  ("address,"  "status"), 

3  FOUR  STOP  ("address,"  "status"), 

4  FIVE  STOP  ("address,"  "status"))) 


New  "label,"  "token,"  and  "item"  strings  are  created  for  each  statement  during 
the  assember's  first  pass.  After  each  statement  is  examined  during  the  first  pass, 
the  label  and  token  strings  are  destroyed,  but  the  item  string  is  saved  on  a  file 
as  the  intermediate  code  for  that  statement. 

3)  Label  string 

The  label  string  is  composed  of  a  "multivalued  list"  (MVL)  as  described  by 
Zaritsky,  pages  2-3.  The  source  (root)  node  is  called  "STRING"  and  the  link 
"LABELS."  For  example,  the  label  "BL0CK1"  has  the  following  label  string: 

G  STRING  LABELS  (B, L ,0, C , K, 1) 

4)  Token  string 

The  token  string  is  the  assembler's  first  attempt  at  codifying  the  operand 
field.  The  operand  field  is  broken  up  into  "tokens:"  arithmetic  operators 
[+  -  *  /],  numbers,  alphanumer ics,  literals,  separators  [,  ;  (]  and  special 
characters  [!  @  %  >  .].  The  token  string  consists  of  three  separate  MVL's: 

a)  The  first  MVL  consists  of  a  source  node/link  pair,  "TOKEN,  STRING,"  and 
a  set  of  sink  nodes  consisting  of  a  sequence  of  token  code  numbers  representing 
the  operand  field.  The  token  codes  are  listed  in  Table  5. 


TABLE  5  -  TOKEN  COOES 


8 

+ 

lb 

NUMBER 

9 

* 

17 

ALPHANUMERIC 

10 

- 

18 

0 

1  1 

/ 

19 

■7 

12 

, 

20 

13 

J 

21 

( 

14 

* 

22 

. 

1  3 

LITERAL 

12 


For  example,  the  operand  field: 

@TABL->1A(R1) , *R2+; 


will  result  in  the  following  token  code  string: 

G  TOKEN  STRING  (18,  17,  10,  20,  16,  21,  17,  12,  9,  17,  8,  14) 

[@,  TABL,  -,  >,  1A,  (,  Rl,  ,  *,  R2 ,  +,  ;] 

b)  The  second  MVL  describes  each  token's  position  in  the  input  buffer.  It 
consists  of  a  source  node/link  pair,  "TOKEN,  BUFPOS."  For  the  preceding  example 
if  the  at-sign  were  placed  in  column  1,  the  MVL  would  appear  as  follows: 

G  TOKEN  BUFPOS  ("1" , "2" , "6" , "7" , "8" , "10" , "11” , "14" , "15" , "16" , "18" , "19") 


c)  The  third  MVL  describes  the  length  of  each  token.  Although  this  string 
could  have  been  eliminated  and  computed  from  the  second  MVL,  the  time  savings 
warranted  its  inclusion.  For  the  preceding  example,  the  MVL  would  appear  as 
follows: 


G 


TOKEN  LEN1D 


n4M  MiM  "i"  "2"  "l"  ,,2"  nl"  ni"  "2"  Ml"  MiM 


5)  Item  String 


The  token  string  is  reduced  to  a  string  of  "items"  which  include: 


♦arithmetic  operators 

•logical  operators 

•literals 

•separators 

•numbers 

•identifiers 

•register  types 

•"current  PC"  operator 

•at-sign 


[+-*/] 

[.+  •-  •*  •/] 

[,  ;1 


[Ri  *Ri  @  Ri  *Ri+] 
[!] 

[@] 


The  item  codes  are  listed  in  Table  6. 


TABLE  6  -  ITEM  TYPE  CODES 


0 

Reg 

10 

_ 

1 

*Reg 

11 

/ 

2 

@Reg 

12 

* 

3 

*Reg+ 

13 

J 

4 

.+  logical  OR 

14 

> 

5 

.*  logical  AND 

15 

1 iteral 

6 

.-  logical  NOT 

16 

number 

7 

./  modulus 

17 

ident if ier 

8 

+ 

18 

0 

9 

* 

The  item  string  consists  of  four  separate  MVL's: 


a)  The  first  MVL  consists  of  a  source  node,  link  pair  "ITEM,  ITMTYP"  and  the 
sink  nodes  consist  of  a  sequence  of  item  codes  derived  from  the  token  string.  The 
item  codes  are  taken  from  Table  6. 

The  token  string  from  the  preceding  example  would  result  in  the  following  MVL: 


ITEM  ITMTYP 


("18",  "17",  "10",  "16", 


”12", 


"14") 


[@  TABL  -  >1A  R1  ,  *R2+  ;] 


b)  The  second  MVL  is  the  "ITEM, VALUE"  pair. 


The  sink  nodes  contain  the  following  types  of  information: 


registers  -  register  number 

identifiers  -  assigned  address  or  0  if  undefined 

numbers  -  decimal  value 

literals  -  first  two  characters  in  ASCII  format 

operators  -  0 

separators  -  0 

exclamation  point  -  0 


In  the  example  being  used,  the  MVL  (during  pass  two)  would  appear  as  follows: 


ITEM  VALUE  ("0",  "address  of  TABL", 


"26", 


c)  The  third  MVL,  "ITEM, BUFPOS" ,  is  identical  to  the  "TOKEN, BUFPOS"  string. 


d)  The  fourth  MVL,  "ITEM,LENID" ,  is  identical  to  the  "TOKEN, LENID"  string. 


FORMING  THE  OBJECT  CODE  WORD 
Instruction  Code  Skeletons 

The  TI9900  microprocessor  instructions  take  up  one  16-bit  word  (four  contiguous 

hexadecimal  integers).  Associated  with  each  instruction  is  an  instruction  code 

skeleton,  described  in  the  9900  Family  Systems  Design  Book,'*"  pages  6-18  through  6-60. 

This  skeleton  may  consist  of  one  to  four  hexadecimal  integers  which  form  the  heart 

of  each  resultant  object  code  word.  CRASS  takes  the  skeleton  and  modifies  it  as  per 

the  operand  field  to  create  the  object  code  word.  For  example:  The  instruction 

DIV  has  a  skeleton  instruction  code  "3C^"  (0011  1100^)  and  an  operand  format  of  9. 

It  will  be  shown  shortly  that  the  operand  field  "R2,R1;"  translates  to  "042.,." 

lo 

Therefore,  the  statement:  DIV  R2,R1;  translates  to  "3C42"  for  the  final  object 
code . 

Note  that  an  object  (data)  word  is  created  for  immediate  operands  and  also 
that  each  memory  reference  requires  an  object  (data)  word. 


Object  Code  Formats 

Although  there  are  twelve  operand  field  formats,  for  the  purposes  of  this 
assembler  there  are  only  eight  different  object  code  formats,  which  are  listed  in 
Table  7. 


TABLE  7  -  MACHINE  CODE  FORMATS 


Operand 

Format 

Operand 

Format 

Number 

Machine  Code  Format 

1  a)  S,D 

b)  S,W 

c)  S,C 

i 

3,9 

4 

0123  45  6789  10  11  12  13  14  15 

IC  RC,  R,  RC  R 

ads  s 

012345  6789  10  11  12  13  14  15 

IC  R.  RC  R 

d  s  S 

012345  6789  10  11  12  13  14  15 

IC  C  RC  R 

s  s 

2  a)  DIS 

b)  BIT 

2 

0123  4567  8  9  10  11  12  13  14  15 

0001  JC  DIS 

0123  4567  8  9  10  11  12  13  14  15 

0001  IC  BIT 

3  W,C 

5 

01234567  8  9  10  11  12  13  14  15 

IC  C  W 

4  S 

6 

0123456789  10  11  12  13  14  15 

IC  RC  R 

s  s 

5  none 

7 

0  1  2  3  4  5  6  7  8  9  10  11  12  13  14  15 

1C 

6  W,IOF 

8 

0  1  2  3  4  5  b  7  8  9  10  11  12  13  14  15 

IC  W 

7  IOP 

B 

0  1  2  3  4  5  b  7  8  9  10  11  12  13  14  15 

IC 

8  W 

C 

0123456789  10  11  12  13  14  15 

IC  w 

Explanation  of  abbreviations: 


IC  -  Instruction  Code 

.JC  -  Jump  Code 

W  -  Workspace  register 

C  -  Count 

S  -  Source 

D  -  Destination 

R  R  -  Register  reference,  if  set  to  zero,  the  next  word  contains  a 

s  d  ( 

memo  r  y  ref  cron c  e . 

D1S  -  Displacement 

RC  -  Register  Code 

R 1  =  009 


PROGRAM  FLOW 


Overview 

CRASS  requires  two  passes  to  create  non-relocatable,  absolute  code.  A  program 

listing  is  given  in  Appendix  B  and  the  variables  used  are  described  in  Appendix  C. 

The  major  functions  of  each  pass  are: 

First  pass  -  Assign  address  values  to  labels 

Reduce  operand  field  to  an  item  string 
(intermediate  code) 

Obtain  instruction  format  and  skeleton 
Attempt  to  resolve  EQU  statements 

Second  pass  -  Second  attempt  to  resolve  EQU  statements 
Create  and  output  absolute  code 
Provide  source  and  identifier  listing  if 
desired 

Description  and  Example 

To  facilitate  the  program  description  which  follows,  the  statement: 

XYZ  MOV  @ABC->23C(R2) ,*R13+;  (comments) 

will  be  converted  to  object  code  as  an  example. 

Before  CRASS  examines  any  assembly  code: 

1)  User  and  scratch  files  are  defined 

2)  The  data  graph  which  describes  the  instructions  and  directives 
is  read  it. . 

3)  The  identifiers  RO,  Rl,  ....  R15  are  defined  as  registers. 

Begin  pass  one: 

1)  Data  strings  and  line  statement  error  flags  are 
re-ini t ia 1 ized . 

2)  The  ASCII  input  line  is  lexically  scanned  by- 
subroutine  LEXSCN. 

a)  The  label  is  converted  to  a  string. 

G  STRING  LABELS  (X,Y,Z) 

b)  The  instruction  is  converted  to  a  string. 

G  STRING  OPCOP  (M,0,V) 

c)  The  operand  field  is  converted  to  a  string 
(Note  that  the  capitalized  names  are  from 
labeled  common  /GIRLCH/). 
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G 

G 

G 

G 

G 

G 


TOKEN  (STRING  (ATS1GN,  VARABL,  MINUS,  GTTHAN,  NUMBER,  LPAR,  VARABL , 


1 

RPAR,  COMMA,  STAR, 

VARABL, 

PLUS,  SCOLON) 

2 

BUFPOS 

("1",  "2",  "5", 

6",  "7" 

,  "10",  "11" 

3 

"13",  "14",  "15", 

"16", 

"19", 

"20"), 

4 

LENID 

("1",  "3",  "1", 

1",  "3" 

n  -i  tt  mom 

»  >  *•  * 

5 

n  1  n  n  -i  i!  h  I  m 

1  »  j  1  » 

inn 

y 

n  -1  it 
■*-  y 

"1")) 

3)  If  the  statement  contains  a  label,  Subroutine 

ADDNAM  is  called  to  test  for  multiple  definition 
and  to  add  the  label  to  the  identifier  tree  if  this 
was  the  first  occurrence  of  the  label.  The  label  is 
then  placed  on  a  special  scratch  file. 


G  SYMBOL  X  $  Y  $  Z  $  STOP  ("address,"  "status") 

where  address  =  the  current  value  of  the  PC  and 
status  =  "defined" 

4)  Subroutine  INSTRU  then  tries  to  match  the  "STRING, 
OPCOD"  list  with  either  a  valid  instruction  or  an 
assembler  directive  from  the  Op  code  -  Directive 
graph.  If  it  is  a  directive,  a  unique  identifying 
integer  (from  1  to  20)  is  returned.  If  it  is  an 
instruction,  an  operand  field  format  and  a 
skeleton  code  are  returned.  For  the  instruction 
"MOV"  these  are 

format  //I 

skeleton  "CO.," 
lb 

5)  Subroutine  TOKSCN  then  converts  the  token  string  to 
an  item  string.  The  item  string  is  the  intermediate 
code  for  transition  from  pass  one  to  pass  two.  The 
item  string  for  this  example  is: 

@,  variable,  minus,  number,  register [ type  0],  comma, 
register [ type  3],  semicolon 

Note  that  the  values  for  the  ITEM, STRING  come  from  Table  6. 


G 

G 

G 

G 


ITEM  (STRING  ("18",  "17",  "10",  "16", 

VALUE  (  0,  address,  0,  decimal  value, 

BUFP0S  (  .  .  . 

LENID  (  .  .  . 


"0",  "12",  "13",  "14") 

reg.  no.,  0,  reg.  no.,  0) , 
), 

)) 


TOKSCN  also  assigns  source  and  destination  register  codes.  For  this  example, 
TOKSCN  "sees" 


0R2 , *R13+ 
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3 


resulting  in 


R 

s 

Rd 

RC 


=  2  =  0010., 
=  13  =  1101 
=2  =10. 


6) 


RC  =  3  =  11, 

d  2 

ITMSCN  is  then  called  to  create  the  machine  code 
words  for  this  statement.  From  Tables  2,  1,  and 

7,  and  page  6-19  of  the  TI  9900  Family  Systems,'" 
the  first  machine  code  word  would  be: 


IC 

RC, 

d 

Rd 

RC 

s 

R 

s 

0123 

45 

6789 

10  11 

12  13  14  15 

1101 

1  0 

0  0  10 

C 

F  6 

2 

which  equals:  "CF62 


16* 


If  the  identifier  "ABC" 


has  been  defined  (that  is,  it  occurred  in  the 

label  field  of  a  statement  prior  to  this  one)  as, 

for  example,  "23F,.,"  then  the  memory  reference 
1  o 


is  computed  as  23F.,  -  23C,,  =  3. 

in  lb 

object  code  created  is: 


Therefore,  the 


CF62 

0003 

If  the  statement  containing  "ABC"  as  a  label  did  not  occur  until  after  the  present 

one,  the  memory  reference  would  have  to  be  resolved  in  the  second  pass. 

7)  The  intermediate  code  is  then  placed  on  a  scratch 
file  by  Subroutine  I.1N0UT. 

Before  pass  two  is  begun,  the  read/write  pointers  of  the  two  scratch  files 
containing  the  intermediate  code  and  the  label  names  are  reset  to  the  beginning. 


two : 

1) 

Data  Strings 

and  1 

1  ine 

re- initial Lz. 

ed. 

2) 

Subroutine  1, 

INKIN’ 

is 

in termed  iate 

code 

for 

3) 

Subroul i ne  I 

TMSCN 

i  s 

attempt  to  e 

nmp  1  et 

e  t 

there  are  no 

errors,  . 

1  f 


and  "For,"  "DATA,"  and  "BYTF."  directives  will 
be  resolved  at  this  time. 
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4)  An  error  checking  routine,  ERROUT,  is  then  called 
to  determine  whether  any  line  statement  error  flags 
have  been  turned  on  and,  if  so,  to  report  any  errors. 

5)  If  requested  by  the  user  (assembler  directive 
"LIST"),  Subroutine  SRCLST  will  output  a  source 
code  listing  of  the  current  statement. 

6)  The  object  code  is  then  placed  on  an  output  file 
by  Subroutine  ABSOUT. 

After  pass  two  is  completed,  if  "LIST"  is  requested,  the  scratch  file  contain 
ing  the  label  names  is  examined  and  Subroutine  VAKLST  creates  an  identifier  listin 
Otherwise,  the  program  is  finished. 


BRIEF  SUBROUTINE  DESCRIPTIONS 

The  main  (driving)  program  was  described  in  the  previous  section  on  program 
flow.  It  calls  the  following  subroutines: 


ITMSCN 

LINEIN 

ADDREG 

ITMSCN 

LEXSCN 

ERROUT 

ADDNAM 

SCRLST 

INSTRU 

ABSOUT 

TOKSCN 

VARLST 

ASSIGN[RT-11  system  library  routine] 

LINOUT 

With  a  minimum  of  detail,  this  section  describes  the  eighteen  subroutines  and 
two  functions  in  CRASS. 


Subroutine  ADDREG 
Function: 

To  add  the  identifier  names  R^,  R^,  .  .  .  ,  to  the  identifier  graph 

and  declare  them  to  be  workspace  registers. 

Called  By:  Main  Routine 
Subroutine  Called:  ADDNAM 

Subroutine  LEXSCN 
Funct  ion : 

To  perform  a  lexical  scan  of  each  input  statement  to  create: 

1)  Label  string 

2)  Instruction  string 

i)  Token  string  to  represent  the  operand  field. 
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The  tokens  would  consist  of  a lit  lime tic  operators,  numbers,  alphanumer ics , 
literals,  separators,  and  special  characters. 

Called  By:  Main  Routine 

Subroutine  ADDNAM  (NODE,  IDEN’T) 

Function: 

To  search  the  identifier  graph  for  the  requested  variable  from  the 

NODE,  IDENT  string  and  add  it  to  the  graph  if  not  found.  ADDNAM  checks  for  multiple 

definition  of  a  label  and,  if  the  label  is  new,  saves  it  on  a  scratch  file  so  that 

an  identifier  listing  can  be  created  at  the  end  of  the  program. 

Called  By:  Main  Routine  OPFLD 

ADDREG  TOKSCN 


i  Subroutine  INSTRU 

i 

I  Function: 

\  To  search  the  Opcode  -  Directive  graph  for  the  requested  instruction.  If 

|  it  is  not  found,  an  error  flag  is  set  and  a  return  is  made.  If  an  assembler 

;  directive  is  matched,  a  unique  integer  identifying  that  directive  is  returned. 

This  integer  is  used  later  by  Subroutine  ITMSCN.  If  an  instruction  is  matched, 

,  its  machine  code  skeleton  and  its  operand  field  format  number  are  returned. 

Called  By:  Main  Routine 

Subroutine  TOKSCN 

i 

;  1  Function: 

To  reduce  the  token  string  to  an  item  string  as  described  in  the 
i  sections  on  data  structures  and  program  flow  and  also  to  assign  values  to  these 


items.  The  items  consist  of: 


JO 


I 


Called  By:  Main  Routine 

Subroutines  Called:  TMPSTR  TWOCMP 

ADDNAM  LVLFSH 


Subroutine  ITMSCN 

Function: 

To  scan  the  item  string,  left  to  right,  to  create  the  final  machine  code. 

a)  First  Pass  -  The  number  of  bytes  (halfwords)  needed 
for  each  instruction  is  determined  and  the  PC  is 
updated  by  that  amount  to  assign  address  values  to 
labels.  To  update  the  PC,  the  following  assembler 
directives  are  examined: 

AORG 
BSS 
BYTE 
DATA 

The  following  directives  are  also  examined  on  the  first  pass: 

DXOP 
END 
EQU 

b)  Second  Pass  -  A  second  attempt  is  made  to  resolve  EQU 
directives.  Also,  the  machine  code  is  constructed 
and  placed  on  an  output  file. 

Called  By:  Main  Routine 

Subroutines  Called:  FMT1  LVRTSH 

OPFLD  LVLFSH 
DECHEX 


EVEN 

TEXT 


Subroutine  LINOUT 
Function: 

To  place  the  intermediate  code  (item  string)  onto  a  scratch  file  during 
the  first  pass. 

Called  By:  Main  Routine 

Subroutine  LINEIN 
Function: 

To  read  the  intermediate  code  into  core  for  processing  in  pass  two. 
Called  By:  Main  Routine 
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Subroutine  OPFLD  (II) 
Function: 


To  examine  a  single  operand  field  as  delineated  by: 

beginning  to  comma 
beginning  to  semicolon 
comma  to  comma 
comma  to  semicolon 

where  II  is  the  location  in  the  operand  buffer  of  the  lefthand  delineator. 

For  example: 

1  1 

15  0  5 

0TABL1 (R3) , *R2+; 

To  examine  the  source  (left)  operand,  II  is  set  to  0.  To  examine  the  destination 
(right)  operand,  II  is  set  to  11.  OPFLD  attempts  either  to  extract  a  register 
number  or  to  compute  a  decimal  value  for  the  field.  The  decimal  value  is  converted 
to  hexadecimal  and  placed  into  a  special  array. 

OFFLD  also  determines  whether  an  extra  object  code  word  must  be  allotted  for  a 
memory  reference. 

Called  By;  ITMSCN 

Subroutines  Called:  DECHEX  TMPSTR 

COMPUT  ADDNAM 

Subroutine  TMPSTR  (TSTLOC,  LENGTH) 

Function: 

To  take  a  sequence  of  "LENGTH"  ASCII  characters  from  the  operand  field 
beginning  at  location  ISTLOC,  and  convert  it  to  a  GIRL  multivalued  list  (MVL) .  For 
example. 

Operand  Field: 

112  2 
1  5  0  5  0  5 

@ABC->123 (Rl) ,@TABL1(R2) ; 

If  ISTLOC  =  16, 

LENGTH  =  5, 

' he  resultant  MVL  will  be: 

C  STRING  STRING  (T,A,  B,L,0NF.) 

Called  By:  TOKSCN 
OPFLD 
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Subroutine  VARLST 
Function: 

If  the  "LIST"  option  is  requested,  to  place  the  status  for  each  identifier 
and  register  on  the  source  listing  output  file. 

Called  By:  Main  Routine 
Subroutine  Called:  DECHEX 

Subroutine  COMPUT  (OPRAND,  OPRATR) 

Function: 

To  take  operands  from  the  two-word  array  OPRAND  ()  and  perform  a 
computation  on: 

OPRAND (1)  OPRATR  OPRAND (2) 

as  determined  by  the  arithmetic  or  logical  operator  in  OPRATR.  The  result  is 
placed  in  OPRAND(l).  If  this  routine  is  called  more  than  once  for  a  single  operand 
field,  the  effect  is  one  of  lef t-to-right  (no  precedence)  expression  handling.  For 
example,  if  Subroutine  OPFLD  is  called  to  handle 

,3+5*6 

COMPUT  will  be  called  twice,  first  to  compute  3+5  and  then  to  compute  8*6. 

Called  By:  OPFLD 

Subroutine  DECHEX  (DECNUM,  HEX(l)) 

Function: 

To  convert  the  decimal  value  in  DECNUM  to  a  four-digit  hexadecimal 

number.  The  four  digits  are  converted  to  ASCII  characters  and  placed  in  the  four- 

byte  array,  HEX(). 

Called  By:  ITMSCN  ABSOUT 
OPFLD  SCRLST 
VARLST  ERROUT 

Subroutine  called:  TWOCMP 
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Subroutine  FMT1  (ADRCOD(l)) 

Function: 

To  take  the  source  and  destination  register  values  and  the  source  and 
destination  register  codes  as  input  and  (except  for  the  instruction  code)  create 
the  machine  code  for  output  format  number  one.  This  code  is  placed  in  the  three- 
byte  array,  ADRCODQ. 

Called  By:  ITMSCN 

Subroutine  SRCLST  (THISPC) 

Funct ion: 

If  the  "LIST"  directive  is  requested,  to  place  the  following  information 
on  an  output  file: 

Input  Line  number 

Address  in  both  decimal  and  hexadecimal  (THISPC) 

Line  status  (non-zero  indicates  error) 

Object  Code 
Input  statement 
Comments  (if  any) 

A  sample  set  of  instructions  and  directives  is  given  in  Appendix  D.  The  source 
and  identifier  listing  created  by  this  subroutine  from  the  instructions  and  di¬ 
rectives  of  Appendix  D  are  given  in  Appendix  E. 

Called  By:  Main  Routine 
Subroutine  Called:  DECHEX 

Subroutine  ABSOUT 
Function: 

To  place  the  object  code  on  an  output  file.  This  routine  is  called 
during  pass  two  for  each  statement  which  is  not  a  comment.  See  Appendix  F  for  the 
format  used  for  generated  object  code. 

Called  By:  Main  Routine 
Subroutine  Called:  DECHEX 

Subroutine  ERROUT  (THISPC) 

Function: 

To  report  to  the  terminal  during  the  second  pass  any  line  statement  with 
an  error.  A  single  variable,  LNSTAT,  is  used  to  describe  any  errors. 
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If  error  free,  LNSTAT  =  0 

If  label  error,  LNSTAT  =  2 

If  instruction  error,  LNSTAT  =  4 
If  operand  error,  LNSTAT  =  8 

For  any  combination  of  errors,  the  value  of  LNSTAT  is  cumulative.  For 
example,  if  a  single  line  has  both  an  instruction  and  an  operand  field  error,  the 
line  status  would  be  reported  as  "12." 

Called  By:  Main  Routine 
Subroutine  called:  DECHEX 

Subroutine  TWOCMP  (HEX(l)) 

Function: 

To  convert  a  hexadecimal  number  (from  HEX())  of  four  ASCII  digits  to  its 

two's  complement  form  and  place  it,  again  in  ASCII  form,  back  into  the  four-byte 

array  HEX() . 

Called  By:  TOKSCN 
DECHEX 

Function  LVRTSH  (WORD,  BITS) 

Function: 

To  perform  a  right  logical  shift.  The  content  of  WORD  is  moved  by  the 
number  of  bits  in  BITS. 

Called  By:  ITMSCN 

Function  LVLFSH  (WORD,  BITS) 

Function: 

To  perform  a  left  logical  shift.  The  content  of  WORD  is  moved  by  the 

number  of  bits  in  BITS. 

Called  By:  TOKSCN 
ITMSCN 
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UPDATING  CRASS 

An  understanding  of  GIRL^  is  required  to  update  (or  correct  any  errors  in) 
CRASS. 

CRASS  consists  of  two  source  files: 

1)  CRASS1.GRL  -  all  routines  contain  a  mixture  of  GIRL 
and  FORTRAN  statements.  The  first  line  of  code  defines 
the  GIRS  buffer  size. 

2)  CRASS2.F0R  -  all  routines  consist  entirely  of  FORTRAN. 

If  CRASS1.GRL  is  modified,  it  must  be  converted  to  all-FORTRAN  by  the  GIRL 
2 

preprocessor.  It  must  then  be  compiled  with  the  following  switch: 

.R  FORTRAN 
*CRASS1  =  CRASS1/N: 7 

No  special  switches  are  needed  when  CRASS2.F0R  is  compiled: 

*CRASS2  =  CRASS2 

3 

A  copy  of  the  GIRS  object  file  GIRS. OBJ  is  required  to  link  the  files  into  a 
"SAV"  file: 

.R  LINK 

*CRASS=CRASS1 ,CRASS2 ,GIRS, SYSLIE/F 

Note  that  CRASS1.0BJ  must  be  the  first  object  file  in  the  linking  sequence. 

If  the  set  of  instructions  or  assembler  directives  is  to  be  modified, 
CRSGEN.GRL  must  be  accessed.  This  program  generates  the  graph  which  describes  the 
entire  legal  set  of  instructions  and  assembler  directives.  It  is  written  in  GIRL 
and  is  listed  in  Appendix  A.  Of  cource,  any  change  in  the  generator  must  be 
matched  in  the  CRASSl  semantics  routine  ITMSCN.  Also,  since  the  GIRS  buffer  size 
is  defined  here,  it  must  be  identical  to  the  first  line  of  code  from  CRASSl. GRL. 

PROPOSED  ADDITIONS  OR  IMPROVEMENTS 

1)  More  precise  diagnostics 

2)  More  flexible  input  format 

3)  Removal  of  the  limitation  for  resolving 
assembly  time  constants  (EQU  directives) 
in  two  passes. 

A)  Allow  parenthesis  precedence  in  expression  evaluation 
5)  Removal  of,  or  at  least  improvement  on,  the  20  character 
limitation  for  the  BYTE,  DATA,  and  TEXT  statements. 
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APPENDIX  A 

GIRL-FORTRAN  PROGRAM  LISTING  OF  CRSGEN,  THE  DATA 
GENERATOR  OF  THE  INSTRUCTION-DIRECTIVE  TREE 
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NOSAVE i PRINT,  COMMENTS 

DEFINE  EXCLAM, QUOTE, POUND, DOLLAR,  PERCNT ,  AMPERS,  APOST, 

1  LPAR, RPAR. STAR,  PLUS,  COMMA,  MINUS,  PERIOD,  SLASH, 

2  ZERO, ONE, TWO, THREE,  FOUR. FIVE-  SIX,  SEVEN.  EIGHT. 

3  NINE, COLON, SCOLON, LSTHAN, EQUALS, GTTHAN, QUEST, 

4  ATSIGN,  A,  B,  C,  D,  E,  F,  G.  H,  I.  J.  K,  L,  M,  N,  0,  P,  Q,  R,  S,  T,  U, 

5  V. W, X, Y, Z. START, OPFIN, DIRECT, TOKODE, VARABL, NUMBER, LITRAL 


EXECUTE 

CALL  ASSIGN <99, 


SY  CRASS.  GRF ' ,  12) 


SET  TOKEN  CODES  FOR  ALL  TOKENS  WHICH  MAY 
BE  THE  FIRST  CHARACTER  OF  AN  "ITEM" 
TOKODE  PLUS  "9" 


TOKODE  PLUS 
TOKODE  STAR  “9" 
TOKODE  MINUS  "10" 
TOKODE  SLASH  "11" 
TOKODE  COMMA  "12" 
TOKODE  EXCLAM  “13" 
TOKODE  SCOLON  "14" 
TOKODE  LITRAL  "15" 
TOKODE  NUMBER  "16" 
TOKODE  VARABL  "17" 
TOKODE  ATSIGN  "18" 
TOKODE  PERCNT  "19" 
TOKODE  GTTHAN  "20" 
TOKODE  LPAR  "21" 
TOKODE  PERIOD  "22" 


STORE  DIRECTIVE  VALUES  AND  INSTRUCTION  FORMATS  AND  SKELETON  CODES 

START  A  *  '  ATEMP  (OPFINI  "  1  '//AO'), 

1  B  *  < OPFINI ” 1 " ,  '//BO'), 

2  S  *  OPFIN< "6",  ' //07 ' ,  ' // 40 ' ) ) > 

AIEMP  <1  *  OPFIN< "8".  ' //02 ' ,  '//20'>. 

1  N  *  D  *  I  *  OPFIN( "8", ' //02 ' ■ '//40'). 

2  0  *  R  *  G  *  DIRECT  " 1 " > 


START  B  *  'BTEMP  <0PFIN<"6".  '//04',  '//40'>. 

1  E  *  S  *  DIRECT  "2", 

2  L  *  < OPFIN<  "6",  ' //06  ' ,  '//I 

3  W  *  P  *  OPF IN ( "6" . '/ 

BTEMP  <S  *  S  *  DIRECT  "3". 

1  Y  *  T  *  E  *  DIRECT  "A") 


// 80 ' ), 

'//04  '  )  )  > 


START 

1 

2 

CTEMP 

1 

2 


'CTEMP  <OPFIN< "l”.  '//80  '  >, 

B  *  OPFIN< "1".  ' //90 ' ) , 

I  *  OPF IN ( "8". ' //02 ' , '//80')> 


<L  *  R  *  OPFIN < "6" 
0  *  C  *  OPFIN< "3" 
Z  *  C  *  OPFIN( "3" 


'  //04  ' ,  '//CO'  ). 
'  //20 ' ) , 

'  / /24  ' )  ) 


START  D  *'DTEMP  (A  *  T  *  A  *  DIRECT 


1 

2 

3 

DTEMP 

1 

1 


(A  *  T  *  A  *  DIRECT  "5", 

E  *  <C  *  <  OPF IN < "6" ,  ' / /06 ' > , 

T  *  0PFIN<"6", ' //06 ' , '//40')>. 
F  *  DIRECT  "6")) 

(I  *  V  *  OPFIN< "9" , ' / / 3C ' ) . 

0  *  R  *  0  *  DIRECT  "7", 


*  O  *  P 


DIRECT 


c 

G 

G 

G 

C 

G 

G 

G 

G 

G 

G 

C 

G 

G 

G 

G 

G 


START  E  *  <N  *  D  *  DIRECT  “9", 

1  Q  *  U  *  DIRECT  "10", 

2  V  *  E  *  N  *  DIRECT  •'ll") 


START  I  % ' I TEMP  (D  «  <L  *  E  *  OPFIN! "7 
1  T  *  DIRECT  ”12" ) ) 

ITEMP  N  *  ! OPFIN! "6"<  '//2C'.  '//40'>, 

1  C  *  <OPFIN< "6". '//05'<  '//BO'). 

2  T  *  0PFIN!"6",  '  //05 ' .  '//CO')). 

3  V*  0PFIN!"6".  '//05',  '//AO')) 


//03 ',  '  / /  AO ' ) , 


START 

JTEMP 

1 

2 

3 


J  *' JTEMP 

(E  *  Q  *  0PFIN(”2".  ' // 13 ' ) » 
G  *  T  *  OPFIN( "2"i  '  // 15 ' ) . 
H  *  (OPFIN( "2"i  '//IB'), 


E  *  QPF I N  (  "  2 11 


'  // 14  '  ) > ) 


G 

JTEMP 

L 

* 

(OPFIN( "2">  '//1A'), 

G 

1 

E 

* 

0PFIN<"2".  ' / / 12  ' ) , 

G 

2 

T 

* 

0PFIN<"2".  '//U  '), 

G 

JTEMP 

M 

* 

P 

* 

OPFIN( "2" .  '//10') 

G 

JTEMP 

N 

* 

(C 

* 

OPFIN ( “2“ »  '//17  ' ) » 

G 

1 

E 

* 

OPFIN< “2">  '//lb'), 

G 

2 

0 

* 

OPFINI  "3" ,  V/19')) 

G 

JTEMP 

□ 

* 

<C 

* 

OPFINI "2") '//IB'), 

G 

1 

P 

* 

aPFlN<"2",  '//IC')) 

G 

START 

L 

* 

<D 

« 

C  *  R  *  QPFIN(  ”4",  V/30'). 

G 

1 

I 

* 

(OPFINI "8".  ‘ / /02 ' ) , 

G 

2 

M  *  I  *  OPFIN( "11 "<  ' //03 ' > , 

G 

3 

S  *  T  *  DIRECT  "13"), 

G 

r 

4 

W 

« 

P  *  I  *  OPFIN <"11".  ' //02 ' ,  '//BO')) 

C 

G 

START 

M 

* 

(0 

* 

V  *  <OPFIN< "1  ",  '//CO'), 

G 

1 

B  *  OPFIN ( " 1 ",  '//DO')), 

G 

2 

P 

* 

Y  *  OPFINI ”9”.  '  / /3B ' ) ) 

V 

C 

START 

N 

• 

(E 

• 

G  *  OPFIN( "6”,  ' //05 ' ) , 

G 

/» 

1 

□ 

* 

P  *  OPFIN( "7", ' / /\0') ) 

L 

G 

START 

0 

• 

<R 

* 

I  *  OPFIN!  "8",  V/02',  ‘//b0‘  >, 

G 

r 

1 

U 

* 

T  *  OPFIN!  "6",  ' //2C  ' ,  V/BO'>> 

L 

c 

r 

START 

P 

* 

A  *  G  »  E  *  DIRECT  "14" 

v« 

G 

START 

R 

• 

(E 

* 

F  *  DIRECT  "15", 

G 

1 

0 

* 

R  *  0  *  DIRECT  "16". 

G 

2 

T 

* 

! OPFIN! "7” • ' / /OA ' .  '//5B'), 

G 

3 

W  *  P  *  OPFIN! ”7".  '//03'.  '//BO'))) 
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o 


c 

C  START  S  *  'STEMP  OPFINCl",  '//60') 

G  STEMP  B  *  <OPFIN< "1", '//70' >, 

G  1  0  *  QPFIN< "10",  '//ID'  ) , 

G  2  Z  *  OPFIN< “10".  '//IE')) 

G  STEMP  E  *  T  *  0  *  0PFIN<"6",  '//07') 

G  STEM P  L  *  A  *  OPF JN<  "5" *  '//0A'> 

G  STEMP  0  *  C  *  <OPFIN< "l”.  '//E0'>. 

Cl  B  *  OPF  IN  (  "  1 ",  W/FO ')> 

G  STEMP  R  »  <A  *  0PFIN<"5",  '//08'), 

G  1  C  *  OPFIN< "5",  '//OB  '  >. 

G  2  L  *  0PFIN<"5*’>  '//09')) 

G  STEMP  T  *  <C  *  R  *  0PF1N< ”4“ ,  ' //34 ' ) , 

G  1  S  *  T  *  OPF IN <  "12",  '  //02 ' ,  '//CO'). 

G  2  U  *  P  *  OPFIN<  ''12“/  '//02  '.  '//AO')) 

C  STEMP  U  *  P  *  B  *  OPFIN<  ”6",  '//Ob'.  '//CO') 

G  STEMP  Z  *  C  *  < OPF IN< "  1  " ,  '//40'), 

G  1  B  *  OPFINC’l",  '//50')) 

C 

G  START  T  *  <B  *  OPFIN( " 10".  '//IF'). 

G  1  E  *  X  *  T  *  DIRECT  "17”, 

G  2  I  *  T  *  L  *  DIRECT  "18") 

C 

G  START  U  *  N  *  L  *  DIRECT  "19” 

C 

G  START  X  *  (0PFIN("6". '//04',  '//SO'), 

G  1  0  *  (P  *  0PFIN<"4",  ' / /2C  ' ) , 

G  2  R  *,  0PFIN<"3",  '//2B')>> 

C 

G  START  SLASH  *  DIRECT  "20" 

C 

CALL  LVDUMP<0. 0, 99) 

C 

WR II E  < 99 )  EXCLAM. QUOTE. POUND, DOLLAR, PERCNT . AMPERS,  APOST, 

1  LPAR, RPAR, STAR, PLUS, COMMA, MINUS, PERIOD, SLASH. 

2  ZERO, ONE, TWO, THREE, FOUR. FIVE,  SIX, SEVEN,  EIGHT, 

3  NINE. COLON,  SCOLON,  LSTHAN,  EQUALS,  GTTHAN,  QUEST, 

4  ATSIGN,  A,  B,  C,  D,  E,  F,  G,  H.  1,  U,  K,  L,  M.  N,  0.  P,  Q.  R.  S,  T.  U, 

5  V, W,  X. Y.  Z. START. OPFIN,  DIRECT, TOKODE, VARABL, NUMBER.  LITRAL 

COMPLETE 
/  COMPLETE 


JO 


OOOO  <50  O  <5  <5  <5  o 


900 


c 


C 


C 


C 


*99, NOSAVE  COMMENTS 
REAL*4  DEFEXT ( 2 ) , SCRACH ( 3 ) 


LOG  I CAL* 1  LABEL, OPCODE,  OPRBUF,  HEX, HEXCOD, BUF<40>, HEXTBL, LINE 

LOG  I  CAL* 1  BLANK, ASCI  10. ASCI  19, ASCI  I  A, ASCI  IF,  ASCI  I  2, ASCHAR 

LOG  I  CAL* 1  LABERR, DIRERR, OPERR,  TYPERR,  INSTER,  DUMMY, DUMB 

LOG ICAL*1  DEFFLG, REGFLG, MLTFLG, BYTFLG, LABFLG, INSFLG, OPFLG, RESFLG, 

1  DIRFLG, ENDFLG, COMNTS, EXTRA, LSTFLG 


COMMON 

COMMON 

COMMON 

COMMON 

1 

COMMON 

1 

2 

COMMON 

COMMON 

1 

2 

3 

4 

5 

COMMON 

1 

2 

3 

COMMON 


/ASC/ 

/ERRFLG/ 

/NAMFLG/ 

/LINFLG/ 

/ASSEMB / 


/DATUM/ 

/GIRLCH/ 


/GIRL/ 


/ASCII/ 


LINE( 72) , HEX (4) , HEXCOD ( 4, 10) 

LABERR, DIRERR, OPERR, TYPERR,  INSTER,  DUMMY 
DEFFLG, LABFLG, REGFLG,  MLTFLG,  BYTFLG,  DUMB 
INSFLG, OPFLG, RESFLG, DIRFLG, ENDFLG- COMNTS, EXTRA, 
LSTFLG 

PASS, REGSRC, REGDES, REGC0D(2>, PC, LINENO, ADDRES, 
MAJVAL. COMENT,  IDSTAT,  LNSTAT, ERRNUM,  FMT , DIRNUM, 
0PER1, 0PER2,  ER,  ERLABL, WRDNUM, BYTNUM,  ERROR 
FIRST, SECOND, HEXTBL ( 16) 

EXCLAM, QUOTE, POUND, DOLLAR- PERCNT , AMPERS.  APOST, 
LPAR, RPAR, STAR, PLUS, COMMA, MINUS, PERIOD, SLASH, 
ZERO, ONE,  TWO,  THREE,  FOUR, FIVE-  SIX, SEVEN, EIGHT, 
NINE, COLON, SCOLON, LSTHAN, EQUALS, GTTHAN, QUEST, 
ATSIGN,  A,  B,  C,  D,  E,  F,  G,  H,  I,  J,  K,  L,  M,  N,  0-  P,  Q,  R,  S,  T,  U, 
V,  W,  X,  Y,  Z 

STRING, TOKEN, ITEM, BUFPOS, LENID, LABELS, OPCOD, STOP, 
ITMTYP, VALUE, SYMBOL, REG, REGSTR , REGATS, REGPLS, 
VARABL, NUMBER, LI TRAL, LOGOR, LOGAND, LOGNOT, MODULO, 
OPFIN, DIRECT, START, TOKODE 
BLANK, ASC 1 10, ASC 1 19, ASCI  I A,  ASCI  IF,  ASCI I Z 


DIMENSION  LABEL  <  6  ) ,  OPCC  E  <  4  ) ,  OPRBUF  (  60 ) ,  FILL(IOO) 
DIMENSION  ASCGRL ( 58 ), Fi LSPC ( 39 > 


EQUIVALENCE  < L INE (  1 ). LABEL < 1 ) ) 

EQUIVALENCE  (LINE (8). OPCODE ( 1 ) > 

EQUIVALENCE  ( L INE ( 1 3 ), OPRBUF ( 1  )  > 

EQUIVALENCE  < ASCGRL ( 1 ), EXCLAM ) ,  < HEXCOD < 1 , I) , BUF ( 1 ) > 


DEFINE  STRING, TOKEN, I TEM, BUFPOS. LENID, LABELS, OPCOD, STOP, 

1  ITMTYP, VALUE, SYMBOL, REG, REGSTR, REGATS,  REGPLS, 

2  LOGOR. LOGAND. LOGNOT, MODULO 


DATA  LINENO, PC, ERROR, FIRST,  SECOND  /O, 256,  0,  1  -  2/ 

DATA  BLANK,  ASC 1 10,  ASC I  19, ASCI  I A, ASCI  IF, ASC 1 1 Z 
1  /1H  ,  1 HO,  1H9,  1  HA,  1HF,  1HZ/ 

DATA  HEXTBL  /1H0, 1H1, 1H2, 1H3, 1H4, 1H5, 1H6, 1H7, 1H8, 1H9, 

1  1HA, 1HB, 1HC , 1HD, 1HE, 1HF/ 

DATA  DEFFLG, REGFLG, MLTFLG, BYTFLG, LABFLG,  INSFLG,  OPFLG, RESFLG, DIRFLG 
1  /l.  2-  4,  8,  16,  32,  64,  128,  256/ 

DATA  DEFEXT/6RASSABS,  3RLST / 

DATA  SCRACH/3RRK1, 6RUSER  , 3RTMP/ 


EXECUTE 

CALL  ASSI GN<  99,  'SY  CRASS  GRF',12) 

CALL  ASSIGN* 14,  'SY  USER  VAR ',11,  'SCR ' ) 


CALL  ASSIGN* 10,  'SY  USER  ASS'. 11) 
CALL  ASSIGN* 12,  'SY  USER  ABS  ' ,  1  1  ) 
CALL  ASSIGN* 13,  'SY  USER  LST',11) 


on  n  n  ~  n^oo  no 


c 

TYPE  2 

2  FORMAT (  '  PLEASE  ENTER  FILE  NAMES  IN  COMMAND  STRING  FORM'/) 

F ILSPC ( 7 ) =0 

IF< ICSI (FILSPC, DEFEXT, ,, 0)  NE  0>  STOP  'INVALID  COMMAND  STRINC' 

IF < IASIGN< 12.  FILSPC ( 1 ), FILSPC (2). FILSPC (5), 0)  NE.  0)  STOP  ' INVALID 
1  IASIGN  1  ' 

IF(FILSPC<7>  EG  0)  CO  TO  5 

I F < I ASI GN ( 1 3,  F I LSPC <6),FILSPC<7>, FILSPC (10).  0 )  NE  0)  STOP  'INVALID 
1  IASIGN  2' 

5  IF< IASIGN< 10, FILSPC( 16), FILSPC < 17),  FILSPC! 19),  32)  NE  0)  STOP 

1  'INVALID  IASIGN  3' 

C 

I F ( I AS I GN <11/ SCR ACH < 1 ) . SCRACH ( 2 ) ■  -1 , 2 >  NE  0)  STOP  '  BAD  SCRATCH 
1  FILE  REQUEST' 

C 

READ ( 99 )  EXCLAM, QUOTE,  POUND,  DOLLAR.  PERCNT ,  AMPERS,  APOST. 

1  LPAR, RPAR, STAR,  PLUS,  COMMA,  MINUS,  PERIOD,  SLASH, 

2  ZERO, ONE, TWO, THREE, FOUR, FIVE,  SIX,  SEVEN, EIGHT, 

3  NINE.  COLON,  SCOLON,  LSTHAN,  EQUALS,  GTTHAN,  QUEST, 

4  ATSIGN,  A,  B,  C,  D,  E,  F,  G,  H,  I,  U,  K,  L,  M,  N,  0,  P,  Q,  R,  S,  T,  U, 

5  V, W,  X. Y.  Z, START, OPFIN,  DIRECT, TOKODE.  VARABL,  NUMBER.  LITRAL 
C 

PASS  =  FIRST 
LABERR  =  FALSE 
ENDFLG  =  FALSE 
LSTFLG  =  .  FALSE 

BEGIN  NAME  TABLE  BY  CREATING  REGISTER  NAMES:  RO,  ,  R15 

CALL  ADDREG 

READ  IN  NEXT  LINE  OF  CODE 
0  LINENO  =  LINENO  +  1 

READ! 10,  1 ILINE 
FORMAT (72A1 ) 

SET  LINE  STATUS  FLAGS 


TYPERR 

= 

FALSE 

LABERR 

55 

FALSE 

DIRERR 

= 

FALSE 

OPERR 

= 

FALSE 

INSTER 

= 

FALSE 

COMNTS 

= 

FALSE 

RESOLV 

= 

TRUE. 

WRDNUM 

* 

1 

BYTNUM 

S 

1 

LNSTAT 

= 

0 

DIRNUM 

3 

0 

CLEAR  ASCII  BUFFERS  AND  GIRL  STRINGS 
DO  20  1 1-1. 40 
BUF  < 1 1 )  =  BLANK 


i  i 


20 


Q  STR I NC-( LABELS,  OPCOD) 

C  TOKEN  -(STRING, BUFPOS, LENID) 

0  ITEM  -( ITMTYP, VALUE, BUFPOS,  LENID) 

C 

C  BREAK  LINE  STATEMENT  UP  INTO  TOKEN  STRINGS 
CALL  LEXSCN 
C 

C  IS  THIS  ENTIRE  LINE  A  COMMENT? 

22  IF(COMNTS)  GO  TO  40 

C 

C  DOES  THIS  STATEMENT  CONTAIN  A  LABEL? 

G  STR1NC+LABELS/30 

C 

C  ADD  LABEL  TO  NAME  TREE  AND  ASSIGN  CURRENT  PROGRAM  COUNTER  (PC) 

C  AS  ITS  VALUE 

NODE  =  STRING 

I DENT  =  LABELS 

CALL  ADDNAM(NODE, I DENT) 

C 

C  EXAMINE  INSTRUCTION 
30  CALL  INSTRU 

C 

C  CONVERT  OPERAND  FIELD  FROM  A  TOKEN  STRING  TO  AN  ITEM  STRING 
C  (INTERMEDIATE  CODE) 

CALL  TOKSCN 
C 

C  DETERMINE  CORRECT  NUMBER  OF  TARGET  WORDS  OF  ABSOLUTE  CODE  NEEDED  FOR 
C  THIS  INSTRUCTION  AND  UPDATE  PC  BY  THAT  AMOUNT.  THIS  IS  NEEDED  IN  THE 
C  FIRST  PASS  IN  ORDER  TO  ASSIGN  CORRECT  ADDRESSES  TO  LABELS. 

C  DO  NOT  SCAN  ITEM  STRINO  IF  INSTRUCTION  OR  DIRECTIVE  WAS  IN  ERROR 
IF ( INSTER  EG  TRUE  )  00  TO  40 
CALL  ITMSCN 
C 

C  OUTPUT  INTERMEDIATE  CODE  TO  LUN  11 
40  CALL  LINOUT 

C 

C  END  OF  INPUT? 

IF(ENDFLG)  CO  TO  50 
CO  TO  10 
C 

C  BEGIN  SECOND  PASS 
50  PASS  =  SECOND 

PC  »  256 
ENDFLC  -  .  FALSE. 

REWIND  11 

IF (LSTFLO)  WRITE( 13,  100) 

100  FORMAT ( '  LINE  NO  ADDRESS  LINE  STATUS  OBJ  CODE  LABEL 

1  INSTR  OP  FIELD') 

C 

C  REINITI ALLIZE  LINE  FLAGS 
60  TYPERR  »  .  FALSE 

OPERR  »  FALSE 
LABERR  »  FALSE 
DIRERR  »  FALSE 
INSTER  -  .  FALSE 
RESOL V  -  TRUE 


o  n  o  o  o  o  o  o  •  o  o  o  o  o  n  n  n  n  ►-  n  n  ^  n  o  no  o  o  o  o  n  —  no  on 


WRDNUM  *  1 
BYTNUM  *  1 
LNSTAT  =  0 
DIRNUM  =  0 

SAVE  PC  FOR  PROGRAM  LISTING 
THISPC  =  PC 

CLEAR  ASCII  BUFFERS  AND  GIRL  STRINGS 
DO  120  11=1. 40 
20  BUF(Il)  =  BLANK 

STRING- (LABELS.  OPCOD) 

ITEM  -( ITMTYP.  VALUE,  BUFPOS,  LENID) 

READ  IN  THE  INTERMEDIATE  CODE,  AND  CONVERT  BACK  TO  GIRL  STRINGS 
CALL  LINEIN 
IF (COMNTS)  GO  TO  140 

CREATE  TARGET  WORDS.  UNLESS  INSTRUCTION  OR  DIRECTIVE  ERROR 
IF ( INSTER  EQ  TRUE.  )  GO  TO  130 
CALL  ITMSCN 

CHECK  FOR  ERRORS 
30  CALL  ERROUT< THISPC) 

GIVE  A  SOURCE  LISTING  IF  DESIRED 
40  IF (LSTFLG )  CALL  SRCLST ( THISPC ) 

CONVERT  TO  BYTES  AND  PLACE  ON  LUN  12 
IF (NOT  COMNTS)  CALL  A8S0UT 

END  OF  PROGRAM  ? 

IF (NOT.  ENDFLG)  GO  TO  60 
REWIND  14 

IF  (LSTFLG)  CALL  VARI.ST 
STOP 

COMPLtlE 


SUBROUTINE  ADDREG 

COMMON  /ASSEMB/  PASS, REGSRC, REGDES, REGC0D<2),  PC,  LINENO,  ADDRES, 

1  MAUVAL. COMENT. IDSTAT, LNSTAT, ERRNUM, FMT ,  DIRNUM, 

2  0PER1 , 0PER2, ER. ERLABL,  WRDNUM,  BYTNUM.  ERROR 
COMMON  /GIRLCH/  EXCLAM, QUOTE, POUND. DOLLAR, PERCNT, AMPERS.  APOST, 

1  LPAR, RPAR, STAR, PLUS, COMMA, MINUS.  PERIOD.  SLASH, 

2  ZERO, ONE- TWO, THREE. FOUR. FIVE, SIX, SEVEN. EIGHT. 

3  NINE, COLON, SCOLON, LSTHAN, EQUALS,  GTTHAN,  QUEST, 

4  ATSIGN,  A,  B,  C,  D,  E,  F,  G,  H-  I ,  J,  K,  L.  M,  N,  O,  P,  Q.  R,  S,  T,  U 

5  V,  W,  X,  Y,  Z 

COMMON  /GIRL/  STRING, TOKEN,  ITEM, BUFPOS, LENID,  LABELS.  OPCOD. STOP 

1  ITMTYP, VALUE, SYMBOL, REG. REGSTR,  REGATS.  RECPLS. 

2  VARABL, NUMBER. LI TRAL.  LOCOR,  LOCAND,  LOCNOT,  MODULO. 

3  OPFIN, DIRECT, START,  TOKODE 

D I MENS I ON  NUMBUF (10) 

EQUIVALENCE (ZERO.  NUMBUF ( 1 ) > 

CREATE  REGISTER  NAME  STRINGS  RO,  .  R15  AND  PLACE  INTO  NAME  TAB. c 
TAGGED  AS  REGISTERS  AND  GIVEN  ADDRESSES  EQUAL  TO  THE  REGISTER  NUMBER 

RO  -  R9 
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NODE  =  STRING 
I DENT  =  REG 
ADDRES  =  -1 
G  STRING  REG  R 

DO  10  II  =  1.10 
ADDRES  =  ADDRES  +  1 
NUM  =  NUMBUF (II) 

G  STRING  REG  -  2  NUM 

CALL  ADDNAM ( NODE .  I  DENT) 

10  CONTINUE 

C 

C  RIO  -  R 1 5 

G  STRING  REG  -  2  ONE 

DO  20  II  =  1 ,  h 
NUM  =  NUMBUF < I  1  ) 

ADDRES  =  ADDRES  +  1 
G  STRING  REG  -  3  NUM 

CALL  ADDNAM (NODE, I DENT) 

20  CONTINUE 

G  COMPLETE 

C 
C 
C 

*  SUBROUTINE  LEXSCN 

C 

L0GICAL*1  LABEL. OPCODE,  OPRBUF,  HEX,  HEXCOD,  BUFI40),  HEXTBL,  LINE 
L0GICAL*1  BLANK, ASCI  10, ASCI  19, ASCI  I A, ASCI  IF, ASCI  I Z,  ASCHAR 
L0GICAL*1  LABERR, DIRERR, OPERR,  TYPERR,  INSTER, DUMMY,  DUMB 
LOG I CAL* 1  DEFFLG, REGFLG, MLTFLG, BYTFLG. LABFLG, INSFLG, OPFLG, RESFLG, 
1  DIRFLG, ENDFLG,  COMNTS, EXTRA, LSTFLG, H0L1, H0L2 

C 

COMMON  /ASC/  LINE<72>. HEX (4), MEXC0D(4, 10) 

COMMON  /ERRFLG/  LABERR, DIRERR, OPERR,  TYPERR,  INSTER- DUMMY 
COMMON  /NAMFLG/  DEFFLG, LABFLG, REGFLG. MLTFLG, BYTFLG,  DUMB 
COMMON  /LINFLG/  INSFLG, OPFLG,  RESFLG, DIRFLG,  ENDFLG.  COMNTS.  EXTRA, 

1  LSTFLG 

COMMON  / ASSEMB /  PASS, REGSRC, REGDES, REGCOD ( 2 > , PC ,  L I NENO, ADDRES, 

1  MAJVAL,  COMENT.  IDSTAT, LNSTAT . ERRNUM,  FMT ,  DIRNUM, 

2  0PER1, 0PER2,  ER, ERLABL,  WRDNUM,  BYTNUM,  ERROR 
COMMON  /DATUM/  FIRST,  SECOND,  HEXTBLUt) 

COMMON  /GIRLCH/  EXCLAM, QUOTE, POUND, DOLLAR, PERCNT, AMPERS, APOST, 

1  LPAR , RPAR, STAR, PLUS, COMMA, MINUS, PERIOD.  SLASH, 

2  ZERO, ONE, TWO, THREE, FOUR, FIVE, SIX, SEVEN, EIGHT, 

3  NINE, COLON, SCOLON, LSTHAN, EQUALS, GTTHAN, QUEST, 

4  ATSIGN,  A,  B,  C,  D,  E,  F,  G,  H,  I,  J,  K,  L,  M,  N,  0,  P,  Q,  R,  S,  T,  U, 

5  V,  W.  X,  Y,  Z 

COMMON  /GIRL/  STRING, TOKEN,  ITEM,  BUFPOS,  LENID,  LABELS,  OPCOD.  STOP, 

1  ITMTYP, VALUE, SYMBDL, REG,  REGSTR, REGATS,  REGPLS, 

2  VARABL, NUMBER, LITRAL, LOGOR, LOGAND,  LOGNOT,  MODULO, 

3  OPFIN,  DIRECT,  START,  TOKODE 

COMMON  /ASCII/  BLANK, ASCIIO, ASCI  19, ASCI IA, ASC11F, ASCI 1Z 
C 

DIMENSION  LABEL! 6), OPCODE (4), OPRBUF (60) 

DIMENSION  ASCGRL  <  58 ) 

C 

EQUIVALENCE  (LINE! 1 ) , LABEL! 1 ) > 

EQUIVALENCE  (LINE(B) , OPCODE! 1 > ) 

EQUIVALENCE  (LINE! 13) . OPRBUF! 1 ) ) 

EQUIVALENCE  ( ASCGRL ( 1 ), EXCLAM ) ,  ( HEXCOD ( 1 , 1 ), BUF ( 1 > ) 

C 

C  THIS  ROUTINE  IS  A  LEXICAL  SCAN  DESIGNED  TO  CREATE  A  BASIC  TOKEN  STRING 
C  CONSISTING  OF  OPERATORS,  NUMBERS,  ALPHANUMERICS,  LITERALS,  AND  SPECIAL 
C  CHARACTERS  TWO  ASSOCIATED  STRINGS  RELATE  THE  TOKEN  STRING  TO  THE 
C  ORIGINAL  ASCII  STRING  BY  INDICATING  EACH  TOKEN'S  STARTING  POSITION  IN 
C  ARRAY  "OPRBUF"  AND  ALSO  THAT  TOKEN'S  LENGTH 

C  A  LABEL  STRING  IS  CREATED  IN  ORDER  TO  PLACE  THAT  LABEL  INTO  A  NAME 
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C  TABLE  CALLED  AN  "EPAM"  TREE. 

C  AN  INSTRUCTION  STRING  IS  CREATED  IN  ORDER  TO  SEARCH  A  PREVIOUSLY 
C  CREATED  EPAM  TREE  WHICH  DESCRIBES  THE  EXISTING  INSTRUCTIONS  AND 
C  DIRECTIVES 
C 

C  *-L I TERAL  HOL 1 

HOL 1  =  FALSE 
C  '-LITERAL:  HOL2 

H0L2  =  FALSE 
C 

C  CHECK  FOR  LABEL  AND  CREATE  LABEL  STRING 
DO  10  11  =  1,  6 
ASCHAR  =  LABEL (II) 

I F ( ASCHAR  EQ  BLANK)  GO  TO  20 
GRLCHR  =  ASCGRL ( ASCHARrBLANK  > 

C 

C  IS  THE  ENTIRE  LINE  A  COMMENT  STATEMENT  ? 


IF (GRLCHR  EQ 

STAR) 

G 

STRING  LABELS 

GRLCHR 

10 

CONTINUE 

GO  TO  20 

15 

COMNTS  =  TRUE 

RETURN 

C 

C  CREATE  INSTRUCTION  STRING 
20  DO  30  11=1,4 

J1  =  I  1 

ASCHAR  =  OPCODE (Jl) 

IF (ASCHAR  EQ  BLANK)  GO  TO  35 
GRLCHR  =  ASCGRL ( ASCHAR -BLANK > 

G  STRING  OPCOD  GRLCHR 

30  CONTINUE 

C 

CHECK  FOR  EXTRANEOUS  CHARACTERS  IN  INSTRUCTION  FIELD 
35  IF ( Jl  EQ  4)  GO  TO  40 

Jl  =  Jl  +  1 
ASCHAR  =  OPCODE (Jl) 

IF (ASCHAR  NE  BLANK)  INSTER  =  TRUE 
GO  TU  35 
C 

C  CREATE  TOKEN  STRING 
40  II  =  0 

GRLCHR  »  0 

C 

C  ELIMINATE  INITIAL  BLANKS 
45  II  =  II  +  1 

I F  < 1 1  GT  60)  RETURN 
ASCHAR  =  OPRBUF (II) 

IF (ASCHAR  EQ  BLANK)  GO  TO  45 
C 

C  FIRST  CHARACTER  FOUND 
LENGTH  =  0 
LSTSYM  =  GRLCHR 
GRLCHR  =  ASCGRL < ASCHAR -BLANK ) 

C 

C  IS  IT  A  LITERAL ° 

IF (GRLCHR  EQ  DOLLAR)  GO  TO  60 
IF (GRLCHR  EQ  APOST)  GO  TO  70 
C 

C  IS  IT  A  NUMBER0 

IF (LSTSYM  EQ  GTTHAN >  CO  TO  80 

IF ( ( ASCHAR  CE  ASCIIO)  AND  (ASCHAR  LE  ASCII*?))  GO  TO  80 

C 

C  IS  IT  AN  ALPHANUMERIC0 

IF( (ASCHAR  GE  ASCIIA)  AND  (ASCHAR  LE  ASCIIZ))  CO  TO  90 

C 
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C  CHARACTER  IS  EITHER  AN  OPERATOR  OR  A  SPECIAL  SYMBOL 
LENGTH  =*  LENGTH  +  1 
ISTLOC  =  II 

G  TOKEN  STRING  GRLCHR 

GS5  TOKEN  <BUFPOS  "ISTLOC".  LENID  "LENGTH") 

IF (GRLCHR  NE  SCOLON)  GO  TO  45 
C 

C  SEMI-COLON  ENDS  THE  STATEMENT  ALL  FOLLOWING  CHARACTERS  ARE  COMMENTS 
COMENT  =  II 
RETURN 
C 

C  *  LITERAL  * 

60  BOUND  *  DOLLAR 

CO  TO  71 
C 

C  '  LITERAL  ' 

70  BOUND  =  APOST 

G71  TOKEN  STRING  LITRAL 

ISTLOC  =  II  +  1 
75  II  »  II  +  1 

IF( II  .  GT  60)  GO  TO  55 

ASCHAR  ■  OPRBUF  (ID 

GRLCHR  =  ASCGRLC ASCHAR -BLANK) 

IF (GRLCHR  .  EG  BOUND)  GO  TO  55 
LENGTH  =  LENGTH  +  1 
GO  TO  75 
C 

C  NUMBER  —  (HEX,  DECIMAL,  OR  BINARY) 

80  BOUND  =■  ASCI  IF 

G  TOKEN  STRING  NUMBER 

GO  TO  91 
C 

C  ALPHANUMERIC  —  (IDENTIFIER  OR  REGISTER) 

90  BOUND  =  ASCI  I Z 

G  TOKEN  STRING  VARABL 

91  ISTLOC  =  II 

95  11  =  II  +  1 

LENGTH  =  LENGTH  +  1 
ASCHAR  =  OPRBUF  (ID 

IF ( ( ASCHAR  GE  ASCIIO)  AND  (ASCHAR  .  LE.  ASCII9))  GO  TO  95 
IF ( ( ASCHAR  GE  ASC1IA)  AND  (ASCHAR  LE  BOUND  >)  GO  TO  95 
II  =  II  -  1 
GO  TO  55 


C 

G 

C 

C 

C 

* 

C 


C 


COMPLETE 


SUBROUTINE  ADDNAM ( NODE , I DENT) 


LOG ICAL*1  LABERR, DIRERR,  OPERR, TYPERR,  INSTER.  DUMMY,  DUMB 
L0GICAL*1  DEFFLG,  REGFLG, MLTFLG, BYTFLG, LABFLG,  INSFLG, OPFLG, RESFLG, 
1  DIRFLG,  ENDFLG,  COMNTS,  EXTRA,  LSTFLG 


COMMON  /ERRFLG/ 
COMMON  /NAMFLG/ 
COMMON  /LINFLG/ 
1 

COMMON  /ASSEMB/ 
1 


COMMON  /GIRL/ 

1 

2 

3 

COMMON  /ASCII/ 


LABERR, DIRERR, OPERR, TYPERR, INSTER, DUMMY 
DEFFLG, LABFLG, REGFLG, MLTFLG, BYTFLG,  DUMB 
INSFLG, OPFLG, RESFLG.  DIRFLG, ENDFLG. COMNTS,  EXTRA, 
LSTFLG 

PASS. REGSRC. RECDES, REGCOD ( 2 ) , PC.  LINENO.  ADDRES. 
MAJVAL, COMENT,  IDSTAT,  LNSTAT ,  ERRNUM,  FMT , DIRNUM, 
0PER1, 0PER2, ER. ERLABL,  WRDNUM,  BYTNUM,  ERROR 
STRING,  TOKEN,  ITEM,  BUFPOS,  LENID, LABELS, OPCOD, STOP, 
ITMTYP, VALUE, SYMBOL,  REG,  REGSTR.  REGATS,  REGPLS, 
VARABL. NUMBER, L I TRAL , LOGOR .  LOGAND.  LOGNOT,  MODULO, 
OPFIN. DIRECT, START,  TOKODE 
BLANK,  ASCIIO,  ASCI  19,  ASCI  I A,  ASCIIF, ASC 1 1 Z 
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c 


DIMENSION  NAME ( 6 ) 


C 

C  THIS  ROUTINE  SEARCHES  THE  NAME  TABLE  FOR  THE  REQUESTED  IDENTIFIER 
C  AND  ADDS  IT  TO  THE  TABLE  IF  NOT  FOUND  AN  ADDRESS  IS  RETURNED  UNLESS 
C  THE  IDENTIFIER  IS  NOT  VET  DEFINED  (JUMP  AHEAD). 

C 

DO  10  II  «  1,6 
1  0  NAME  (ID  =0 

IF ( I DENT  NE.  RES)  ADDRES  =  0 
ER  =  SYMBOL 
IDSTAT  =  0 
POS  =  0 
C 

C  EXAMINE  INPUT  STRING 

G20  NODE  +  IDENT  "POS=POS+ 1 “ /30  ' GRLCHR 

NAME  (POS)  =>  GRLCHR 
G  ER  +  GRLCHR/65  'ER/20 

C 

C  IF  FAILURE.  IDENTIFIER  IS  A  SUBSET  OF  AN  EXISTING  NAME 
C  (EG.  “VAR"  >  " VAR  1 " ) 

G30  ER  +  STOP ( /40  'ADDRES.  2  'IDSTAT) 

C 

C  NAME  FOUND 

IF( IDENT  NE  LABELS)  RETURN 
ERLABL  *  ER 

C 

C  TEST  FOR  MULTIPLE  DEFINITIONS 

IF(<  IDSTAT  AND  DEFFLG)  EG  0)  GO  TO  40 

C 

C  USE  MOST  RECENT  DEFINITION 
ERROR  -  ERROR  ♦  1 
IDSTAT  =  IDSTAT  OR  MLTFLG 
LABERR  =  TRUE 

C 

C  UPDATE  ADDRESS  AND  IDENTIFIER  STATUS 

40  IF ( IDENT  EQ  REG)  IDSTAT  =  IDSTAT  OR  REGFLG  OR.  DEFFLG 

IF( IDENT  NE  LABELS)  GO  TO  45 
ADDRES  =  PC 
ERLABL  =  ER 

IDSTAT  =  IDSTAT  OR  DEFFLG 
G45  ER  STOP ( -  1  “ADDRES”.  -  2  “IDSTAT") 

C 

C  OUTPUT  IDENTIFIER  TO  NAME  FILE 

I F (  NOT  LABERR)  WRITE! 14)  NAME 
RETURN 

C 

C  NAME  MUST  BE  ADDED  TO  THE  TREE.  ADD  NEXT  CHARACTER 
G60  NODE  +  IDENT  "POS=POS+ 1 ” / 40  'GRLCHR 

NAME (POS)  =  GRLCHR 
G65  ER  GRLCHR  4'ER 

GO  TO  60 
G  COMPLETE 

C 
C 
C 

*  SUBROUTINE  INSTRU 

(. 

LOG IC AL* 1  LABERR. DIRERR, OPERR. TYPERR.  INSTER. DUMMY,  DUMB 

C 

COMMON  /ERRFLG/  LABERR,  DIRERR. OPERR. TYPERR.  INSTER.  DUMMY 
COMMON  /ASSEMB /  PASS, REOSRC. REGDES, REGCOD ( 2 ).  PC ,  L INENO,  ADDRES. 

1  MAJVAL, COMENT,  IDSTAT, LNSTAT,  ERRNUM,  FMT ,  DIRNUM, 

2  0PER1. 0PER2. ER, ERLABL,  WRDNUM, BYTNUM,  ERROR 

COMMON  /GIRL/  STR I NG, TOKEN, I TEM. BUFPOS. LENI D, LABELS, OPCOD, STOP , 
1  I TMTYP,  VALUE,  SYMBOL, REG, REGSTR , REGATS, REGPLS, 
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c 


2 

3 


VARABL, NUMBER. LITRAL, LOGOR,  LOGAND.  LOGNOT,  MODULO. 
OPFIN, DIRECT, START,  TOKODE 


DIRNUM  =  0 
FMT  =  0 
II  =  0 

SI  =  START 

GIO  STRING*  OPCOD  "11=11+1"  /20  ' GRLCHR 

D  TYPE  15,  SI. GRLCHR 

D15  FORMAT (  '  SI,  GRLCHR ' , 2X,  1 4, 2X,  14 ) 

G  SI  ♦  GRLCHR  'Sl/40/10 

C 

C  INSTRUCTION  NAME  OR  DIRECTIVE  MAY  HAVE  BEEN  FOUND  IN  TREE 
C  TEST  FOR  INSTRUCTION 

G20  Sl+OPFIN  <1/30  'FMT,  2'0PER1.  3 ' OP ER 2 //RETURN) 

0PER2  =  0 
RETURN 
C 

C  TEST  FOR  DIRECTIVE 

G30  SI  +  DIRECT  'DIRNUM/ /RETURN 

C 

C  FAILURE 

40  INSTER  =  TRUE 

ERROR  =  ERROR  +  1 
G  COMPLETE 

C 

C 

c 

*  SUBROUTINE  TOKSCN 

C 


C 


C 


L0GICAL*1  LABEL.  OPCODE. OPRBUF. HEX, HEXCOD, BUF 1 40 > , HEXTBL,  LINE.  NEG 
LOG I CAL* 1  BLANK, ASCI  10. ASCI 19, ASCI I A, ASCI  IF,  ASCI  12,  ASCHAR 
L0GICAL*1  LABERR, DIRERR, OPERR. TYPERR.  INSTER,  DUMMY,  DUMB 
L0GICAL*1  DEFFLG, REGFLG, MLTFLG. BYTFLC, LABFLG,  INSFLG. QPFLC,  RESFLG, 
1  DIRFLG, ENDFLG,  COMNTS, EXTRA,  LSTFLG 


COMMON 

COMMON 

COMMON 

COMMON 

1 

COMMON 

1 

2 

COMMON 

COMMON 

1 

2 

3 

4 

5 

COMMON 

1 

2 

3 

COMMON 


/ASC/ 

/EPRFLG/ 

/NAMFLG/ 

/LINFLC/ 

/ASSEMB/ 


/DATUM/ 

/GIRLCH/ 


/GIRL/ 


/ASCII/ 


LINE  <  72 ) . HEX  <  4  > ,  HEXCOD (4.  10) 

LABERR, DIRERR, OPERR, TYPERR. INSTER, DUMMY 
DEFFLG, LABFLG, REGFLG, MLTFLG, BYTFLG.  DUMB 
INSFLG, OPFLG, RESFLG, DIRFLG,  ENDFLG,  COMNTS,  EXTRA, 
LSTFLG 

PASS, REGSRC, REGDES, REGC0D<2) , PC. LINENO, ADDRES, 
MAJVAL, COMENT,  IDSTAT, LNSTAT ,  ERRNUM,  FMT,  DIRNUM. 
0PER1. 0PER2, ER, ERLABL, WRDNUM,  BYTNUM,  ERROR 
FIRST, SECOND,  HEXTBL ( 16) 

EXCLAM, QUOTE, POUND, DOLLAR, PERCNT , AMPERS. APOST, 
LPAR, RPAR,  STAR,  PLUS,  COMMA,  MINUS.  PERIOD,  SLASH, 
ZERO, ONE, TWO. THREE,  FOUR,  FIVE,  SIX,  SEVEN,  EIGHT, 
NINE,  COLON,  SCOLON.  LSTHAN,  EQUALS,  OTTHAN. QUEST. 
ATSIGN,  A,  B,  C,  D,  E,  F,  G,  H,  I.  J,  K,  L.  M,  N,  0.  P,  Q.  R.  S,  T,  U, 
V,  W.  X,  Y,  Z 

STRING, TOKEN,  ITEM, BUFPOS, LENID,  LABELS, OPCOD, STOP, 
ITMTYP, VALUE, SYMBOL, REO.  REOSTR, REGATS, RECPLS. 
VARABL, NUMBER. LITRAL, LOGOR, LOGAND.  LOCNOT,  MODULO, 
OPFIN, DIRECT, START, TOKODE 
BLANK,  ASCI  10,  ASC 1 19, ASC 1 1 A. ASC I  IF, ASCIIZ 


DIMENSION  LABEL ( 6 ) ,  OPCODE ( 4 ), OPRBUF ( 60 ) 
C 

EQUIVALENCE  < LINE ( 1 ). LABEL ( 1 ) ) 
EQUIVALENCE  (LINE <8 >, OPCODE ( 1 > > 
EQUIVALENCE  ( LINE ( 13) .  OPRBUF ( 1 ) ) 

C 

DATA  DEC.  BIN.  HEXA  /1.2, 3/ 

C 

C  THIS  ROUTINE 


C  1)  COMBINES  (REDUCES)  THE  TOKENS  FROM  LEXSCN  INTO  "ITEMS" 

C  SUCH  AS  REGISTER  TYPES,  LOGICAL  AND  MATHEMATICAL  OPERATORS, 

C  VARABLES,  NUMBERS,  LITERALS,  COMMAS,  SEMI-COLONS, 

C  AND  EXCLAMATION  MARKS 

C  2)  ASSIGNS  REGISTERS  >  REGISTER  NUMBERS 
C  OPERATERS  >  0 

C  VARIABLES  >  ADDRESS  VALUE  OR  0  IF  UNDEFINED 

C  NUMBERS  >  DECIMAL  VALUE 

C  LITERALS  >  FIRST  TWO  CHARACTERS 

C  COMMAS  >  0 

C  SEMICOLON  >  0 

C  EXCLAM  MK  >  0 

C 

C - 

c 

C  ITEM  TYPE  CODES  O-IB 
C  TOKEN  CODES  8-22 

C 


c 

0 

REG 

« 

12 

, 

c 

1 

*REG 

1 

13 

i 

c 

2 

@REG 

1 

14 

, 

c 

3 

*REG+  1 

15 

LITERAL 

c 

4 

+ 

LOG  OR  ' 

16 

NUMBER 

c 

5 

* 

LOG  AND  ' 

17 

IDENTIFIER 

c 

6 

- 

LOG  NOT  ' 

18 

@ 

c 

7 

/ 

MODULUS  f 

19 

7. 

c 

8 

* 

\ 

20 

> 

c 

9 

# 

i 

21 

( 

c 

10 

- 

i 

22 

c 

1 1 

/ 

i 

C 

C - - - 

C 

C  INITIALIZE  REGISTER  CODES  AND  SOURCE  AND  DESTINATION  REGISTER  VALUES 
C  REGISTER  CODES  ARE  0-3 
C 

REGCOD ( 1 )  =  O 
REGCOD  <  2 )  =  0 
REGSRc  =  0 
REGDES  =  0 
C 

C  EXTRACT  TOKEN 
11=0 
COMMAS  =  O 
C 

C  DEFAULT  ASSUME  NUMBERS  ARE  DECIMAL 
NUMTYP  =  DEC 

C 

C  EXAMINE  TOKEN  STRING  FOR  FIRST  CHARACTER  OF  ITEM 
G10  TOKEN  +  STRING  "11=11+1"  /RETURN  'TOKE 

G  TOKEN  +  <  BUFPOS  II  'ISTLOC,  LENID  II  'LENGTH) 

C 

C  OPERATOR  AND  DELIMETER  VALUES  DEFAULT  TO  O  IN  ORDER  TO  PAD 
C  ITEM  -  VALUE  LIST 
VAL  =  0 

C 

C  BEGIN  ITEM  TYPE  AND  VALUE  DEFINITIONS 
G  TOKODE  ♦  TOKE  ' I TMVAL 

INDEX  =  1 TMVAL  -  7 

C 

C  +*-/,'  ;  LIT  MUM  VAR 

GO  TO  (2000,  100,  2000,  2000,  200,  2000,  2000,  300,  400,  500, 

1  600,  700,  BOO,  900,  1000)  INDEX 

C  *  7.  >  ( 

C 

C 


41 


C  ****  ASTERISK  --  (STAR) 

C  LOOK  AHEAD,  IF  NOT  A  RECISTER-  TREAT  AS  ARITHMETIC  OPERATOR 

C 

100  TEMPI  -  II  +  1 

e  TOKEN* (STRING  TEMPI 'NEXT.  BUFPOS.  TEMP  1 'NXTLOC .  LENID  TEMP  1 'NXTLEN > 

IF(NEXT  NE  VARABL)  GO  TO  2000 
C 

C  NEXT  TOKEN  IS  EITHER  A  RECISTER  OR  IDENTIFIER 
C  PLACE  ON  TEMPORARY  STRING 

CALL  TMPSTR(NXTLOC.  NXTLEN) 

CALL  ADDNAM< STRING,  STRING) 

IF<  < IDSTAT  AND.  REGFLG )  EQ  0)  GO  TO  2000 
C 

C  VAR ABLE  IS  A  REGISTER 

LENGTH  =  LENGTH  +  NXTLEN 
VAL  =  ADDRES 
II  =  II  ♦  1 
C 

C  ASSIGN  SOURCE  OR  DESTINATION  REGISTER  VALUE 
IF (COMMAS  GE  1)  GO  TO  120 
REGSRC  =  ADDRES 
GO  TO  130 
C 

120  REGDES  =  ADDRES 

C 

C  REGISTER  MAY  HAVE  THIS  FORM  *REG+ 

130  TEMP2  =  TEMPI  +  1 

G  TOKEN  +  STRING  TEMP2  'LAST 

C 

C  SET  REGISTER  CODE 
ITMVAL  =  1 

IF (LAST  NE  PLUS!  GO  TO  140 

C  *R  + 

ITMVAL  =»  3 
II  =  II  +  1 
LENGTH  =  LENGTH  +  1 
140  REGCOD  <  COMMAS  +  1!  =  ITMVAL 

GO  TO  2000 
C 

C  ****  COMMA 

C 

200  COMMAS  =  COMMAS  +  1 

GO  TO  2000 
C 

C  ****  LITERAL  —  PLACE  UP  TO  FIRST  TWO  CHARACTERS  INTO  "VAL" 

C 

300  VAL  =  OPRBUF( ISTLOC) 

IF ( LENGTH  GT  1)  VAL  =  LVLFSH < VAL, 8 )  OR  OPRBUF ( ISTLOC  +  1) 

GO  TO  2000 
C 

c  ****  NUMBER  —  PLACE  DECIMAL  VALUE  INTO  VAL 
C 

400  GO  TO  (410,  430,  450)  NUMTYP 

C 

C  DECIMAL 

410  DO  420  K 1  =  1,  LENGTH 

Ml  =  Kl  +  ISTLOC  -  1 

VAL  =  10  *  VAL  +  <  OPRBUF ! Ml )  -  ABCIIO) 

420  CONTINUE 

GO  TO  2000 
C 

C  BINARY 

430  DO  440  Kl  =  1,  LENGTH 

Ml  =  Kl  ♦  ISTLOC  -  1 

VAL  «=  2  *  VAL  +  ( OPRBUF ( Ml  >  -  ASCI  10) 

440  CONTINUE 
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CO  TO  2000 


C 

C  HEXADECIMAL 

C  FIRST  CHECK  FOR  VALUES  GT  32767 
450  NEC  =  FALSE 

IF( (LENGTH  .  NE  4)  OR  (OPRBUF( ISTLOC )  LE  ASCIIO  +  7)) 

I  GO  TO  453 
NEG  =  . TRUE 

CALL  TWOCMP ( OPRBUF ( 1 STLOC ) > 

453  DO  460  K1  =  1,  LENGTH 

HEXCHR  =  OPRBUF < K I  ♦  ISTLOC  -  1) 

DO  455  LI  =  1.  16 

J1  =  LI 

IF < HEXCHR  EG.  HEXTBL ( J1 ) >  GO  TO  457 
455  CONTINUE 

457  DECHAR  =  J1  -  1 

VAL  =  16  *  VAL  +  DECHAR 

460  CONTINUE 

IF (NOT  NEG)  GO  TO  2000 
VAL  =  -VAL 

CALL  TWOCMP < OPRBUF ( ISTLOC)  ) 

GO  TO  2000 
C 

C  ****  IDENTIFIER  —  COULD  BE  A  REGISTER  (CODE  =  O) 

C 

C  PLACE  ON  TEMPORARY  STRING 
500  CONTINUE 

CALL  TMPSTR( ISTLOC,  LENGTH) 

CALL  ADDNAM( STRING.  STRING) 

VAL  =  ADDRES 
C 

C  REGISTER"? 

I F ( ( IDSTAT  AND  REGFLG)  EG.  0)  GO  TO  2000 
ITMVAL  =  O 

510  IF ( COMMAS  GE  1)  GQ  TO  920 

C 

C  SOURCE 

REGSRC  =  ADDRES 
GO  TO  530 

C 

C  DESTINATION 

520  REGDES  =  ADDRES 

C 

C  CHECK  FOR  RIGHT  PARENTHESIS 
530  TEMP  =11+1 

G  TOKEN  ♦  STRING  TEMP/2000  =  RPAR/2000 

II  «  TEMP 
GQ  TO  2000 

C 

C  ***#  AT-SIGN  —  «,  NEXT  ITEM  COULD  BE  A  NUMBER,  REGISTER,  OR  VARIABLE 

C 

600  TEMP  ■=  II  ♦  1 

G  TOKEN* (STRING  TEMP  'NEXT.  BUFPOSTEMP  'NXTLOC,  LENI D  TEMP 'NXTLEN ) 

REGCOD( COMMAS  ♦  1 )  =  2 
IF (NEXT  NE  VARABL )  GO  TO  2000 

C 

C  CHECK  FOR  REGISTER 

CALL  TMPSTR( NXTLOC.  NXTLEN) 

CALL  ADDNAM( STRING, STRING) 

C 

C  REGISTER? 

1F( (IDSTAT  AND  REGFLG)  EG  0)  GO  TO  2000 
VAL  =■  ADDRES 
I  1  »  TEMP 

LENGTH  »  LENGTH  +  NXTLEN 
ITMVAL  -  2 
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GO  TO  510 


C 

C  ****  PERCENT  —  •/.,  NEXT  ITEM  IS  A  BINARY  NUMBER 

C. 

700  NUMTYP  '  BIN 

GO  TO  10 

C 

C  ****  GTTHAN  —  >.  NEXT  ITEM  IS  A  HEXADECIMAL.  NUMBER 

r 

800  NUMTYP  =  HEX A 

GO  TO  10 

C 

C  **«*  LEFT  PAREN  —  (.  NEXT  ITEM  MUST  BE  A  REGISTER,  CODE  =  2 

C 

900  LENGTH  =  0 

GO  TO  600 
C 

C  ****  PERIOD  -  ,  LOGICAL  OPERATOR  DR  MODULO, 

C  NEXT  TOKEN  MUST  BE  ~  / 

1000  II  =  11  *  1 

LENGTH  =  2 

G  TOKEN  «-  STRING  11  '  TOKE 

G  TOKODE  +  TOKE  ' I TMVAL 

ITMVAL  =  ITMVAL  -  4 

C 

C  ****  PLACE  VALUES  INTO  ITEM  LISTS 

C 

G2000  ITEM  (ITMTYP  "ITMVAL",  VALUE  "VAt. " ) 

G  ITEM  (BUFPOS  "ISTLOC",  LENID  "LENCTH" ) 

C 

C  DEFAULT  ASSUME  NUMBERS  ARE  DECIMAL 
NUMTYP  *  DEC 
C 

C  RETURN  IF  SEMI-COLON 

IF (TOKE  EG  SCOLON)  RETURN 
GO  TO  10 
C 

G  COMPLETE 

C 

c 

c 

*  SUBROUTINE  ITMSCN 

C 

LOG  I CAL* 1  LABEL , OPCODE. OPRBUF, HEX, HEXCOD. HEXTBL, L INE, MASK4 
LOG I  CAL  *  1  BLANK, ASCI  10. ASC I  1 9  ASCI IA, ASCI  IF, ASCI IZ, ASCHAR.  TEMPO 
LOGICAL*!  LABERR. DIRERR, OPERR, TYPERR, INSTER, DUMMY. DUMB 
LOGICAL.*!  DEFFLG, REGFLG ■ ML  TFLG. BYTFLG, LABFLG,  INSFLG, OPFLG. RESFLG 
1  DIRFLG. ENDFLG, COMNTS, EX TRA. LSTFLG. ADRC0D<3> 

C 

COMMON  /ASC/  L  INE(  72)  ,  HEX  (4  )  ,  HEXC.0D(4.  10) 

COMMON  /ERRFLG /  LABERR , DIRERR . OPERR. TYPERR , INSTER . DUMMY 
COMMON  /NAMFl G /  DEFFLG, LABFLG- REGFLG. MLTFLG, BYTFLG. DUMB 
COMMON  /L.INFLG/  INSFLG. OPFLG.  RESFLG, DIRFLG,  ENDFL C .  COMNTS. EXTRA, 

1  LSTFLG 

COMMON  / ASSEMB /  PASS. REGSRC . REGDES. REGCOD ( 2 ) . PC, L 1NEN0, ADORES, 

1  MAJVAL.  COMENT.  IDSTAT,  LNSTAT, ERRNUM, FMT. DIRNUM, 

2  0PER1 . 0PER2. ER,  ERLABL,  WRDNUM,  BYTNUM,  ERROR 
COMMON  /DATUM/  F I RST , SE COND , HEX TBL ( 1 6 ) 

COMMON  /GIRL  CH/  ExCLAM,  QUOTE,  POUND,  DOLLAR, PERCMT. AMPER5, APGST. 

1  LPAR,  RPAR ,  STAR,  PLUS.  COMMA.  MINUS, PERIOD. SLASH 

2  ZERO.  ONE,  TWO,  THREE. FOUR.  FIVE.  SIX, SEVEN  EIGHT , 

3  NINE .  COLON.  SCOLON. LSTHAN. EQUAL  S,  GTTHAN. QUEST 

4  ATS  I  GN.  A,  B-  C.  D.  E  ,  F.  G.  H  I  ,  J,  K,  l  ,  M.  N.  0.  P.  Q.  R  S  I  " 

5  V.  W.  X.  V.  Z 

COMMON  /GIRL/  STRING.  TOKEN.  ITEM.  BUFPOS.  LENID- LABELS  OPCOIi  Tu; 

1  I TM TyP  VALUE  SYMBOL.  REC  REGS  1  R  RE  CATS.  t'F  CF’l  S 
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2  VARABL. NUMBER, LITRAL,  LOGOR.  LOGAND,  LOCNOT,  MODULO. 

3  OPF IN, DIRECT, START- TOKODE 

COMMON  /ASCII/  BLANK, ASCI  10, ASCI  19, ASCI IA, ASCI  IF,  ASCI  12 
C 

DIMENSION  LABEL  <  6 ) , OPCODE  <  4  > ,  OPRBUF(fcO) 

C 

E GUI VALENCE  ( L INE < 1 ), LABEL < 1 ) ) 

EQUIVALENCE  < L INE < 8 >. OPCODE < 1 ) > 

EQUIVALENCE  < L INE ( 1 3) , OPRBUF < 1 > ) 

C 

DATA  EVEN, ODD, SOURCE,  DEST,  MASK4,  MASK8  /O,  l,  O,  1,  " 17,  “377/ 

DATA  REGIST, ALL, NUM, KOMMA, LITERL  /O, -1 ,  16.  12.  15/ 

C 

C  THIS  ROUTINE  SCANS  THE  ITEM  STRING  LEFT  TO  RIOHT 

C  A)  FIRST  PASS  -  THE  NUMBER  OF  TARGET  WORDS  NEEDED- FOR  EACH  INSTRUCTION 
C  IS  COUNTED  AND  THE  PC  UPDATED  BY  THAT  AMOUNT  SO  THAT 

C  LABELS  MAY  BE  GIVEN  CORRECT  ADDRESS  VALUES  PRIOR  TO  THE 

C  SECOND  PASS 

C  B)  SECOND  PASS-  THE  TARGET  MACHINE  CODE  IS  CREATED 
C 

C  UP  TO  TEN  WORDS  MAY  BE  CREATED  BY  A  DIRECTIVE 

C  FOR  EXAMPLE  "DATA''  WITH  TEN  OPERANDS  OR  "BYTE"  WITH  TWENTY  OPERANDS 
C  UP  TO  THREE  WORDS  MAY  BE  CREATED  BY  AN  INSTRUCTION. 

C 

C  LEFT  TO  RIGHT  ARITHMETIC  WITH  NO  PARENTHESES  IS  ALLOWED 
C 

BYTNUM  =  1 
WRDNUM  =  1 

IF <  DIRNUM  NE  0)  GO  TO  2000 
BYTNUM  =  2 
PC  =  PC  +  2 

GO  TO  < 100. 200. 300,  400,  500. 600,  700.  BOO,  900.  lOOO.  1 lOO,  1200)  FMT 
C 

C  ****  FORMAT  1  S,  D 
C 

100  DEST  IN  =  ALL 

C 

C  FORM  FIRST  HEX  WORD 

110  CALL  FMT 1 ( ADRCOD  < 1 ) ) 

IF  ( PASS  EQ  FIRST)  GO  TO  120 
TEMPI  -  LVRTSH ( OPER 1,8) 

TEMP 2  =  TEMPI 

HEXCOD < 1 .  1 )  *  TEMP 2 

TEMPI  =  ( OPER 1  AND  MASKS ) 

TEMP 2  «  TEMPI  -  ASCI 10 

IF ( TEMP 2  GT  9)  TEMP2  *  TEMPI  -  ASCIIA  +  10 
HEXC0D(2,  1  >  »  HEXTBL < ADRCOD(  1  >  +  TEMP2  «-  1) 

HEXC0DI3,  1 )  =  HEXTBL ( ADRCOD <  2 )  *  1) 

HEXC0D<4.  1)  *  HEXTBL <  ADRCOD! 3)  +  1) 

C 

C  COMPUTE  SOURCE  AND  DESTINATION  FIELDS 
120  I F < FMT  EQ  4)  RETURN 

II  =*  0 

FIELD  =  SOURCE 
125  CALL  OPFLDdl  > 

C 

C  DESTINATION  FIELD  IS  RESTRICTED  TO  SIMPLE  REGISTERS  FOR  FORMATS  3  AND  9 
IF1FIELD  EQ  SOURCE)  GO  TO  130 
IFIDESTIN  EQ  ALL)  GO  TO  130 
IF< DESTIN  NE  MAUVAL)  OPERR  *  TRUE 
C 

C  WILL  EXTRA  WORDS  BE  NEEDED  BEYOND  THE  BASIC  INSTRUCTION  WORD? 

130  IF (NOT  EXTRA)  GO  TO  150 

WRDNUM  »  WRDNUM  ♦  1 

BYTNUM  »  BYTNUM  ♦  2 

PC  *=  PC  ♦  2 


IF (PASS  EQ.  FIRST)  GO  TO  150 
DO  140  J1  =  1.4 

140  HEXC0D(J1, WRDNUM)  =  HEX(Jl) 

150  IF (FIELD  EQ  DEST )  RETURN 

FIELD  -  DEST 
GO  TO  125 
C 

C  ****  FORMAT  2  DISPLACEMENT  -128  >=  DISP  >=  127  (JUMP  STATEMENTS) 
C 

200  THSLOC  =  PC  -  2 

IF (PASS  EQ  FIRST)  RETURN 
C 

C  COMPUTE  ABSOLUTE  ADDRESS 
II  =  O 

CALL  OPFLD(Il) 

C 

C  COMPUTE  RELATIVE  DISPLACEMENT  IN  WORDS 

DISP  =  ((ADDRES  -  THSLOC)  -  2)  /  2 
C 

C  IF  DISPLACEMENT  EXCEEDS  LIMIT.  SET  ERROR  FLAG 
C  AND  USE  DISPLACEMENT  MODULO (128) 

I F  < ( D I SP  GT  127)  OR  (DISP  LT  -128))  OPERR  =  TRUE 
C 

C  CONVERT  DISPLACEMENT  TO  HEX 

CALL  DECHEX ( D I SP , HEX  < 1 ) ) 

TEMPI  =  LVRTSH ( QPER 1.8) 

TEMPO  =  TEMPI 

HEXCOD( 1, 1 )  =  TEMPO 

TEMPI  =  (0PER1  AND  MASK8 ) 

TEMPO  =  TEMPI 
HEXCOD (2.  1 )  =  TEMPO 
HEXCODO,  1  >  =  HEX  (3) 

HEXCQD( 4, 1 )  =  HEX (4) 

RETURN 

C 

C  ****  FORMAT  3  S, W  DESTINATION  MUST  BE  A  SIMPLE  WORKSPACE  REGISTER 
C 

300  DEST IN  =  REG 1ST 

GO  TU  110 
C 

C  #***  FORMAT  4  S,  C  DESTINATION  MUST  BE  AN  INTEGER  FROM  O  10  15 
C 

400  11=0 

FIELD  =  SOURCE 
405  CALL  OPFLD ( I  1 ) 

IF ( F I ELD  EQ  SOURCE)  GO  TO  430 
C 

C  CHECK  DESTINATION  AGAINST  0-15  VALUE  INTEGER 
IF ( MAJVAL  NE  NUM )  OPERR  =  TRUE 

IF ( ( ADDRES  LT  0)  OR  (ADDRES  GT  15>>  OPERR  =  TRUE 
REGDES  =  ADDRE 
GO  TO  450 
C 

C  EXTRA  TARGET  WORD  NEEDED"' 

430  I F (  NOT  EXTRA)  GO  TO  450 

BYTNUM  =  BYTNUM  +■  0 

WRDNUM  =  WRDNUM  +  1 

PC  =  PC  +  0 

I F ( PASS  EQ  FIRST)  GO  TO  450 
DO  440  J1  =  1,4 

440  HE XCOD< J1 . WRDNUM)  =  HEX(Jl) 

450  IF ( F I ELD  EQ  DEST)  GO  TO  110 

FIELD  =  DEST 
GO  TO  425 
C 

C  #*#*  FORMAT  5  W,  N 


4  ft 


c 

C  SOURCE  FIELD  MUST  CONTAIN  A  SIMPLE  WORKSPACE  REGISTER 
C  DESTINATION  FIELD  MUST  CONTAIN  AN  INTEGER  FROM  0  TO  15 
500  I F ( PASS  EQ  FIRST)  RETURN 

11=0 

CALL  OPFLD! II  ) 

C 

C  SOURCE  FIELD  —  W 

IF ( MAJVAL  NE  REG  1ST)  OPERR  =  TRUE 
TEMPI  =  LVRTSH < OPER 1,8) 

TEMP 2  »  TEMPI 

HEX COD ( 1 ,  1 >  =  TEMP2 

TEMPI  =  ( OPER 1  AND  MASK8) 

TEMP2  =  TEMPI 
HE  X  C  OD ( 2 .  1 )  =  TEMP2 
C 

HEX COD <4,  1 )  =  HEX  <  4 ) 

C 

C  DESTINATION  FIELD  —  0  <C=  N  <=  15 

CALL  OPFLD < 1 1 ) 

IF ( MAJVAL  NE  NUM )  OPERR  =  TRUE. 

HEXCOD <3,  1  )  =  HEX  (A) 

RETURN 

C 

C  ***#  FORMAT  6  S 
C 

600  11=0 

CALL  OPFLD < I  1 ) 

IF (EXTRA )  PC  =  PC  +  2 
I F ( PASS  EQ  FIRST)  RETURN 
C 

TEMPI  =  LVRTSH < OPER 1,  B> 

TEMP2  =  TEMPI 

HEXCOD  < 1 .  1 )  =  TEMP2 

TEMPI  =  < OPER 1  AND  MASKS) 

TEMP2  =  TEMPI 
HEXCOD (2. 1 )  =  TEMP2 
TEMPI  =  LVRTSH < 0P£R2i 8) 

IF l TEMP 1  EQ  01  TEMPI  =  ASCIIO 
TEMP 2  =  TEMPI  -  ASCIIO 

IF< TEMP2  GT  9)  TEMP2  =  TEMPI  -  ASCIIA  +  10 
HEXCOD 13. 1 >  =  HEXTBL (REGCOD ( 1 >  ♦  TEMP 2  +  1) 

C 

IF (EXTRA )  GO  TO  610 
C 

C  NO  EXTRA  WORD  IS  NEEDED  FOR  A  SIMPLE  REGISTER 
HEXCOD ( 4 . 1 )  =  HEX ( 4 ) 

RETURN 

C 

C  EXTRA  WORD  FOR  LITERAL,  NUMBER.  OR  MEMORY  LOCATION 
610  HEXCOD <  4,1)  =  HEXTBLIREGSRC  +  1) 

BYTNUM  =  BYTNUM  +  2 
WRDNUM  =  WRDNUM  ♦  1 
DO  620  Jt  =  1.4 

620  HEXCOD! Jl,  WRDNUM)  =  HEX(Jl) 

RETURN 

C 

C  ****  FORMAT  7  N/A 
C 

700  I F ( PASS  EQ  FIRST)  RETURN 

TEMPI  =  LVRTSH ( OPER 1, 8) 

TEMP2  =  TEMPI 

HEXCOD* I . I )  =  TEMP 2 

TEMPI  =  <  OPER 1  AND  MASKS) 

TEMP2  =  TEMPI 
HEXCOD! 2.1)  =  TEMP 2 


k  1 


TEMPI  =  LVRTSH ( 0PER2, B) 

IF (TEMPI  EQ  0)  TEMPI  =  ASCI  10 

TEMP 2  =  TEMPI 

HEXCODO,  1)  =  TEMP2 

TEMPI  =  (0PER2  AND  MASKS) 

IF ( TEMP  1  EQ  0)  TEMPI  =  ASCIIO 
TEMP2  =  TEMPI 
HEXC0D<  4,  1 )  =  TEMP2 
RETURN 
C 

C  ****  FORMAT  8  W. I OP 

c 

BOO  PC  =  PC  +  2 

IF ( PASS  EQ  FIRST)  RETURN 
C 

C  SOURCE  MUST  BE  A  SIMPLE  REGISTER 
C  CONSTRUCT  FIRST  WORD 
11=0 

CALL  OPFLD <  1 1  ) 

IF ( MAJVAL  NE  REGIST)  OPERR  =  TRUE 
TEMPI  =  LVRTSH ( OPER 1 .  S ) 

TEMP2  =  TEMPI 

HEXCOD  < 1.1)  =  TEMP 2 

TEMPI  =  ( OPER 1  AND  MASK8 ) 

TEMP 2  =  TEMPI 
HEXCODO,  1 )  =  TEMP2 
TEMPI  =  LVRTSH (0PER2.  8) 

I F ( TEMP  1  EQ  0)  TEMPI  =  ASCIIO 
TEMP2  =  TEMPI 
HEXCODO,  1  >  =  TEMP2 
HEXC0D(4,  1  )  =  HEX  <  4  ) 

C 

C  CONSTRUCT  IMMEDIATE  OPERAND  DO  NOT  RESET  ITEM  STRING  POINTER  11 
CALL  OPFLD ( I  1 ) 

BYTNUM  *  BYTNUM  +  2 
WRDNUM  =  WRDNUM  +  1 
DO  810  J1  =  1,4 

SIC  HEXC0D(J1,  WRDNUM)  =  HEX(Jl) 

RETURN 

C 

C  ****  FORMAT  9  S.  W  DESTINATION  MUST  BE  A  SIMPLE  WORKSPACE  REGISTER 

C 

900  DESTIN  =  REGIST 

GO  TO  110 
C 

C  #***  FORMAT  A  BIT  «  —  MUST  BE  A  POSITIVE  INTEGER.  VALUE  IS 

C  COMPUTED  MOD  256 

1000  IF (PASS  EQ  1)  RETURN 

11=0 

CALL  OPFLD ( 1 1 ) 

IF (MAJVAL  NE  NUM)  OPERR  =  .  TRUE 
IF( ADDRES  LT  0)  OPERR  =  TRUE 
TEMPI  -  LVRTSH ( OPER 1,8) 

TEMP 2  =  TEMPI 

HEXCOD ( 1,  1 )  =  TEMP2 

TEMPI  =  ( OPER 1  AND  MASKB ) 

TEMP2  =  TEMPI 
HEXCOD( 2, 1 )  =  TEMP 2 
HEXCODO,  1  )  =  HEX  (3) 

HEXCOD ( 4,  1 )  =  HE  X ( 4 ) 

RETURN 

C 

C  ****  FORMAT  B  10P 
C 

1100  PC  =  PC  +  2 

IF ( PASS  EQ  FIRST)  RETURN 
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TEMPI  =  LVRTSH (OPER 1 . 8  > 

TEMP2  =  TEMPI 

HEXCOD ( 1 ,  1 )  =  TEMP2 

TEMP  1  -  ( OPER 1  AND  MASK8 ) 

TEMP 2  =  TEMPI 
HEXCOD(2, 1 >  =  TEMP2 
TEMPI  =  LVRTSH(OPER2,  8) 

IF ( TEMP  1  EQ  0)  TEMPI  -  ASCIIO 

TEMP 2  =  TEMPI 

HEXCOD<  3.  1 )  =  TEMP2 

TEMPI  »  ( QPER2  AND  MASK8 ) 

IF (TEMPI  EQ  0)  TEMPI  =  ASCIIO 
TEMP2  =  TEMPI 
HEXCOD (4.1)  *  TEMP2 

C 

C  FORM  I OP 

II  =  0 

CALL  OPFLD( II ) 

BYTNUM  =  BYTNUM  +  2 
WRDNUM  =  WRDNUM  +  1 
DO  1110  J1  =  1,4 

1110  HEXC0D(J1.  WRDNUM)  =  HEX(Jl) 

RETURN 

C 

c  ****  FORMAT  C  W  —  OPERAND  FIELD  IS  RESTRICTED  TO  SIMPLE  REGISTERS 

C 

1200  IF ( PASS  EQ  FIRST)  RETURN 
11=0 

CALL  OPFLD(Il) 

IF (MAJVAL  NE  REGIST)  OPERR  *  TRUE 
TEMPI  =  LVRTSH ( OPER 1,8) 

TEMP2  =  TEMPI 

HEXCOD (1,1)  =  TEMP2 

TEMPI  =  ( OPER 1  AND  MASKS  > 

TEMP2  =  TEMPI 
HEXCOD (2-  1 )  =  TEMP2 
TEMPI  =  LVRTSH (0PER2,  8) 

IF (TEMPI  EQ  0)  TEMPI  =  ASCIiO 
TEMP2  =  TEMPI 
HEXCOD( 3. 1 )  =  TEMP 2 
HEXC0D(4.  1 )  =  HE X  < 4 ) 

RETURN 


C 

C _ 

C 

c  ****  DIRECTIVES  **** 

C 

D2000  TYPE  2001 >  DIRNUM 
D2001  FORMAT ( '  DIRNUM  =  ',15) 

2000  GO  TO ( 2 1 00, 2200, 2300, 2400, 2500, 2600, 2700, 2S00, 2900, 3000-  3100, 
1  3200.3300,3400,3500,3600,3700.3800.3900,4000)  DIRNUM 

C 

C  ****  AORG 
C 

2100  COMNTS  -  TRUE 
00  TO  4000 
RETURN 


C 

C  ****  BES 

C 

2200  TYPE  2201 

2201  FORMAT < '  BES',*) 

TYPE  2205 

2205  FORMAT ('■*•'.  '  IS  NOT  YET  IMPLEMENTED') 

COMNTS  -  TRUE 
RETURN 
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c 

c  «***  BSS  —  BLOCK  START INS  WITH  SYMBOL 
C 

2300  II  =  0 

CALL  OPFLD  < 1 1 ) 

PC  =  PC  +  ADDRES 
RETURN 
C 

C  ****  BYTE  —  INITIALIZE  BYTE  DATA,  MUST  END  WITH  SEMI-COLON 
C 

2400  NUMEXP  =  1 

WRDPOS  =  EVEN 
LIMIT  »  20 

C  IF (  ( PC  AND  ODD)  EQ.  0)  GO  TO  2405 

C  LIMIT  *  19 

C  WRDPOS  =  ODD 

2405  PC  =  PC  <■  1 

C 

C  COUNT  THE  COMMAS 
II  =  0 

G2410  ITEM  +  ITMTYP  "II  =  II  +  l"/2430  =K0MMA/24 10/2420 
2420  PC  =  PC  +  1 

NUMEXP  =  NUMEXP  +  1 
GO  TO  2410 
C 

C  IF  THIS  DIRECTIVE  HAD  A  LABEL,  DECLARE  IT  AS  BTYE 
G2430  STRING  +  LABELS/2450 

C  ER  +  STOP  2  'IDSTAT 

IDSTAT  =  IDSTAT  .  OR  BYTFLG 
G  ER  STOP  -2  “IDSTAT" 

C 

C  BEGIN  EVALUATION  OF  , HE  EXPRESSIONS,  20  LIMIT  IF  EVEN.  19  IF  ODD 
C2450  LIMIT  =  20 

C  IF < WRDPOS  .  EQ.  ODD)  LIMIT  =  19 

2450  BYTNUM  =  NUMEXP 

WRDNUM  =  1 
11=0 

IF < NUMEXP  01  LIMIT)  OPERR  =  TRUE. 

DO  2470  J1  =  1, NUMEXP 
CALL  OPFLD  < 1 1 ) 

IF (WRDPOS  EQ  ODD)  GO  TO  2460 
C  PC  IS  EVEN 

HEXCODI 1. WRDNUM)  =  HEX(3> 

HEXCOD( 2, WRDNUM)  =  HEX (4) 

WRDPOS  =  ODD 
GO  TO  2470 
C  PC  IS  ODD 

2460  HEXCOD( 3, WRDNUM)  =  HEX<3> 

HEXCOD< 4, WRDNUM)  =  HEX (4) 

WRDPOS  -  EVEN 
WRDNUM  =  WRDNUM  +  1 
2470  CONTINUE 

IF ( WRDPOS  EQ  EVEN)  WRDNUM  «  WRDNUM  -1 
RETURN 
C 

C  ****  DATA  —  INITIALLI ZE  WORD  DATA 
C 

2500  NUMEXP  =  l 

PC  =  PC  +  2 
C 

C  COUNT  THE  COMMAS 
11=0 

C2510  ITEM  +  ITMTYP  ”11  =  II  ♦  l"/2530  =K0MMA/2510/2520 
2520  PC  =  PC  ♦  2 

NUMEXP  =  NUMEXP  +  1 
GO  TO  2510 
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c 

C  EVALUATE  UP  TO  10  EXPRESSIONS 
2 530  LIMIT  =  10 

IMNUMEXP  GT  LIMIT)  OPERB  =  TRUE 
BVTNUM  =  2»NUMEXP 
11=0 
WRDNUM  =  0 

DO  2570  J1  =  l.NUMEXP 
CALL  OPFLDUl) 

WRDNUM  =  WRDNUM  +  1 

DO  2560  LI  =  1,4 

2560  HEXCOD ( LI , WRDNUM)  =  HEX(Ll) 

2570  CONTINUE 

RETURN 

C 

C  ***#  DEE 

C 

2600  TVPE  2601 

2601  FORMAT  <  '  DEF  '  .  * ) 

TYPE  2205 
COMNTS  =  TRUE 
RETURN 

C 

C  »*##  DORG 

C 

2700  TYPE  2701 

2701  FORMAT ( '  DORG',*) 

TYPE  2205 
COMNTS  =  TRUE 
RETURN 

C 

C  ****  DXOP  --  DEFINE  EXTENDED  OPERATION 
C 

2800  COMNTS  =  TRUE 

if < pass  eq  second)  return 

c 

C  REMOVE  LABEL  FROM  IDENTIFIER  TREE 

G  ERLABL  -  STOP 

C  ADD  LABEL  TO  “INSTRUCTION  -  DIRECTIVE"  TREE 

SI  =  START 
11=0 

G20  STRING  ♦  LABELS  “II  =  II  +  1 "730  'GRLCWfi 

G  SI  ♦  GRLCHR  1  /25  'SI  /20 

G25  SI  GRLCHR  *'S1 

GO  TO  20 
C 

C  USE  FORMAT  "6" 

G30  SI  OPFIN  "6“ 

C 

C  DETERMINE  EXTENDED  OPERATION  NUMBER  AND  INCORPORATE  INTO 
C  XOP  INSTRUCTION  SKELETON 
11=0 

CALL  QPFLD< l l ) 

I F ( MA JVAL  NE  NUM)  OPERR  =  TRUE 
C 

C  SPLIT  XOP  NUMBER  INTO  TWO  RIGHT  AND  TWO  LEFT  BITS 
RTHALF  =  ADDRES  AND  3 
LFHALF  =  LVRTSHI ADORES,  2 > 

C 

C  CREATE  INSTRUCTION  SKELETON 
I  STB YT  =  HEXTBL  <2  +  1 ) 

SECBYT  =  HEXTBL (12  ♦  LFHALF  ♦  1) 

ISrWRD  =  LVLFSHC ISTBYT, 8)  OR  SECBYT 
BYTONE  =  LV1FSH( RTHALF,  2) 

BYTONE  =  HEXTBL (BYTONE  *  1) 
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SECWRD  =  LVLFSH ( BYTONE, B) 

G  SI  OPF IN  (_ISTURD, _SECWRD) 

RETURN 

C 

C  ****  END  —  END  OF  ASSEMBLY 
C 

2900  ENDFLG  =  TRUE 

RETURN 
C 

C  ****  EOU  —  DEFINE  ASSEMBLY  TIME  CONSTANT 
C  SET  LABEL  TO  VALUE  IN  OPERAND  FIELD 

3000  11=0 

CALL  OPFLD ( 1 1 > 

G  ERLABL  STOP  -  1  "ADDRES" 

I F ( PASS  EG  SECOND)  COMNTS  =  TRUE 
RETURN 
C 

C  ****  EVEN  —  IF  PROGRAM  COUNTER  IS  AN  ODD  NUMBER.  ADD  ONE  TO  EVEN  UP 
C 

3100  IF  < ( PC  AND  ODD)  EG  0)  GO  TO  3150 
PC  =  PC  ♦  1 

HEXCOD ( 1 . WRDNUM )  =  ASCI  10 
HEXC0D(2,  WRDNUM)  =  ASC I  I  0 
RETURN 

3150  COMNTS  =  TRUE 

RETURN 

C 

C  ****  IDT 

C 

3200  TYPE  3201 

3201  FORMAT  <  '  IDT'.*) 

TYPE  2205 
COMNTS  =  TRUE 
RETURN 

C 

C  ****  LIST  —  OUTPUT  SOURCE  LISTING 
C 

3300  LSTFLG  =  TRUE 

COMNTS  -  TRUE 

RETURN 
C 

C  ***#  PAGE 

C 

3400  TYPE  3401 

3401  FORMAT ( '  PAGE'.*) 

TYPE  2205 
COMNTS  =  TRUE 

RETURN 

C 

C  ****  REF 

C 

3500  TYPE  3501 

3501  FORMAT (  '  REF'.*) 

TYPE  2205 
COMNTS  =  TRUE 

RETURN 

C 

C  ****  RORG 

C 

3600  TYPE  3601 

3601  FORMAT  <  '  RORG',*) 

TYPE  2205 
COMNTS  =  TRUE 

RETURN 

C 

C  ****  TEXT  —  INI T I ALL  I  ZE  UP  TO  20  CHARACTERS  IF  PC  IS  EVEN,  19  IF  ODD 


c 

3700  LIMIT  =  20 

WRDPOS  =  EVEN 

IF ( ( PC  AND  ODD)  EQ  0)  GO  TO  3710 
LIMIT  =  19 
WRDPOS  =  ODD 

C 

C  OBTAIN  LOCATION  AND  LENGTH  OF  TEXT 

G3710  ITEM  +  < I TMTVP  ' I TMVAL.  BUFPOS  'ISTLOC,  LENID  'LENGTH) 
C 

C  ERROR  IF  NOT  LITERAL  OR  EXCEEDS  19  OR  20  CHARACTERS 
IF ( I TMVAL  NE  LITERL)  OPERR  =  TRUE 
I F ( LENGTH  .  GT  LIMIT  )  OPERR  =  TRUE 
BYTNUM  =  LENGTH 
PC  =  PC  +  LENGTH 
IF (PASS  EQ  FIRST)  RETURN 
WRDNUM  =  1 
C 

C  PICK  UP  NEXT  CHARACTER 
NXTLOC  =  ISTLOC 

DO  3770  J1  =  i.  LENGTH 

IF (WRDPOS  EQ  ODD)  GO  TO  3760 

TEMP 2  =  OPRBUF (NXTLOC) 716 

HEXCOD< 1. WRDNUM)  =  HEXTBL ( TEMP2  +  1) 

TEMP2  =  OPRBUF (NXTLOC )  AND.  MASK4 
HEXCOD( 2. WRDNUM)  =  HEXTBL (TEMP2  +  1) 

NXTLOC  =  NXTLOC  +  1 
WRDPOS  =  ODD 
GO  TO  3770 
C 

3760  TEMP 2  =  OPRBUF (NXTLOC )/ 16 

HEXCOD< 3. WRDNUM)  =  HEXTBL (TEMP2  ♦  1) 

TEMP2  =  OPRBUF (NXTLOC)  AND  MASK4 
HEXCOD( 4.  WRDNUM)  =  HEXTBL (TEMP2  +  1> 

NXTLOC  =  NXTLOC  +  1 
WRDPOS  =  EVEN 
WRDNUM  =  WRDNUM  +  1 
3770  CONTINUE 

RETURN 
C 

C  ****  TITL 

C 

3800  TYPE  3801 

3801  FORMAT ( '  TITL'.*> 

TYPE  2205 
COMNTS  =  TRUE 
RETURN 

C 

C  ****  UNL 

C 

3900  LSTFLG  =  FALSE 

COMNTS  =  TRUE 

RETURN 
C 

C  *#**  SLASH  —  CHANGE  PROGRAM  COUNTER 

C 

4000  11=0 

CALL  OPFLD(Il) 

PC  =  ADDRES 
RETURN 

G  COMPLETE 
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SUBROUTINE  LINOUT 


\ 


LOGICAL* 1  LABEL,  OPCODE,  OPRBUF,  HEX,  HEXCOD,  L INE 

LOG I CAL* 1  LABERR, DIRERR, OPERR, TYPERR, INSTER. DUMMY, DUMB 

LOG I CAL *1  DEFFLG,  REGFLG.  MLTFLG, BYTFLG. LABFLG.  INSFL  G, OPFLG, RESFLG, 

1  DIRFLG,  ENDFLG,  COMNTS, EXTRA, LSTFLG 

COMMON  /ASC/  L INE ( 72 ) , HEX < 4 ) . HEXCOD ( 4 , 10) 

COMMON  /ERRFLG/  LABERR, DI RERR , OPERR , TYPERR , I NSTER , DUMMY 
COMMON  /NAMFLG/  DEFFLG,  LABFLG,  REGFLG,  MI.TFL  G,  BYTFLG,  DUMB 
COMMON  /LINFLG/  INSFLG,  OPFLG,  RESFLG,  DIRFLG, ENDFLG. COMNTS, EXTRA, 
t  LSTFLG 

COMMON  /  ASSF.MB  /  P  ASS,  REGSRC ,  REGDES,  REGCOD  (  2  ) ,  PC ,  L  1 NENO,  ADDRES, 

1  MAJVAL, COMENT.  IDSTAT,  LNSTAT,  ERRNUM, FMT , DIRNUM, 

2  0PER1, 0PER2, ER, ERLABL,  WRDNUM, BYTNUM, ERROR 
COMMON  /GIRL/  STR ING,  TOKEN,  ITEM, BUFP  ,S,  LENID,  LABELS,  OPCOD,  STOP. 

1  ITMTYP,  VALUE,  SYMBOL,  REG,  REGSTR, REGATS, REGPLS. 

2  VARABL.  NUMBER,  LITRAL,  LOGOR, LOGAND, LOGNOT,  MODULO, 

3  OPFIN, DIRECT, START, TDKDDE 

COMMON  /TMPARR/  TEMP  1 ( 30 ) , TEMP2 < 30 ) , TEMP3 ( 30 ) , TEMP4 ( 30 ) 

DIMENSION  LABEL <  6 ) ,  OPCODE! 4) , OPRBUF ( hO ) 

EQUIVALENCE  < L I NE <  1 ) ,  LABEL < 1  ) ) 

EQUIVALENCE  < L INE < 8 ), OPCODE ( 1) ) 

EQUIVALENCE  < L INE ( 1 3 ).  OPRBUF ( 1 > > 

***  OUTPUT  INTERMEDIATE  CODE  (ITEM  STRING)  FOR  A  SINGLE  LIFE 
WRITE!  1 1)  REGSRC,  REGDES,  F.EGCOD,  LINENO, 

1  COMENT,  LNSTAT, ERRNUM, FMT,  DIRNUM, 

2  0PER1, 0PER2,  ER.  ERLABL,  LINE, 

3  INSTER,  COMNTS,  LABERR,  OPERR 

EXTRACT  INTERMEDIATE  CODE  FROM  THE  ITEM  STRING  UNLES5  COMMENT 
I F  ( COMNTC  £(j  TRUE  )  RETURN 
LIMIT  =  30 
II  =  0 

10  ITEM  +< ITMTYP  "11  =  11  +  1"  /20  ' I TMVAL ,  VALUE  II  'VAL> 

ITEM  + ! BUFPOS  II  'ISTLOC,  LENID  II  LENGTH) 

TEMPI!  ID  =  I  TMVAL 
TEMP2! II)  =  VAL 
TEMP3 ( I  1 )  =  ISTLOC 
TEMP4 ( I l )  =  LENGTH 
GO  TO  10 

0  11=11-1 

IF! I  1  GT  LIMIT)  GO  TO  99 
WRITE! 1 1 )  TEMPI, TEMP2, TEMP3. TEMP 4 

RETURN 

ERROR 

99  TYPE  100 

100  FORMAT!'  ***  ERROR  -  TOO  MANY  ITEMS  IN  OPERAND  FIELD') 

STOP 

COMPLETE 


G 
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SUBROUTINE  LINE IN 


LOG I CAL* 1  BLANK, ASCI  10, ASCI  19, ASCI  I A, ASCI  IF,  ASCI  I Z,  ASCHAR 

LOG I CAL* 1  LABEL, OPCODE,  OPRBUF, HEX,  HEXCOD,  BUF(40),  LINE 

LOG I CAL*1  LABERR, DIRERR, OPERR, TVPERR,  INSTER, DUMMY,  DUMB 

LOG I CAL* 1  DEFFLG,  REGFLG, MLTFLG, BYTFLG, LABFLG,  INSFLG. OPFLG, RESFLG, 

1  DIRFLG,  ENDFLG,  COMNTS,  EXTRA, LSTFLC,  DONE 


COMMON 

COMMON 

COMMON 

COMMON 

1 

COMMON 

1 

2 

COMMON 

1 

2 

3 

4 

5 

COMMON 

1 

2 

3 

COMMON 

COMMON 


/ASC/ 

/ERRFLG/ 

/NAMFLQ/ 

/LINFLG/ 

/ASSEMB/ 


/GIRLCH/ 


/GIRL/ 


/ASCII/ 

/TMPARR/ 


LINE<72), HEX<4), HEXC0D(4,  10) 

LABERR, DIRERR, OPERR,  TYPERR,  INSTER,  DUMMY 
DEFFLG, LABFLG, REGFLG. MLTFLG, BYTFLG,  DUMB 
INSFLG, OPFLG, RESFLG,  DIRFLG,  ENDFLG,  COMNTS.  EXTRA. 
LSTFLG 

PASS. REG5RC, REGDES. REGC0D<2>. PC. LINENO.  ADORES, 
MAUVAL, COMENT,  IDSTAT, LNSTAT ,  ERRNUM.  FMT ,  DIRNUM, 
0PER1. 0PER2. ER, ERLABL.  URDNUM, BYTNUM.  ERROR 
EXCLAM, QUOTE, POUND, DOLLAR, PERCNT. AMPERS.  APOST, 
LPAR, RPAR. STAR, PLUS, COMMA, MINUS, PERIOD. SLASH, 
ZERO, ONE, TWO, THREE, FOUR. FIVE. SIX. SEVEN. EIGHT, 
NINE, COLON, SCOLQN, LSTHAN, EQUALS. GTTHAN, QUEST, 
ATSIGN,  A,  B,  C.  D,  E,  F,  G,  H,  I.  J,  K,  L.  M,  N.  O,  P,  Q.  R,  S,  T,  U, 
V,  W.  X,  Y,  Z 

STRING,  TOKEN, ITEM, BUFPOS, LENID, LABELS.  OPCOD,  STOP, 

ITMTYP, VALUE, SYMBOL, REG, REGSTR, REGATS. REGPLS, 

VARABL. NUMBER, LITRAL, LOGOR,  LOCAND,  LOGNOT,  MODULO, 

OPFIN, DIRECT, START,  TOKODE 

BLANK,  ASCI 10,  ASCII9,  ASCIIA,  ASCIIF, ASCIIZ 

TEMPI <30).  TEMP2(30>, TEMP3I30), TEMP4(30> 


DIMENSION  LABEL < 6). OPCODE (4), OPRBUF <60 ) 
DIMENSION  ASCGRL ( 58 ) 


EQUIVALENCE  < L INE ( l ) .  LABEL ( 1) ) 

EQUIVALENCE  < L INE ( 8 ), OPCODE! 1 ) ) 

EQUIVALENCE  ( LINE ( 1 3 ),  OPRBUF ( 1 > ) 

EQUIVALENCE  ( ASCGRL ( 1) , EXCLAM ) ,  (HEXCOD! 1 .  1 ).  BUF ( 1 ) ) 

***  INPUT  INTERMEDIA! E  CODE  (ITEM  STRING)  FOR  A  SI HOLE  LINE 
READ! 1 1 )  REGSRC, REGDES,  REGCOD,  LINENO, 

1  COMENT, LNSTAT,  ERRNUM,  FMT,  DIRNUM, 

2  0PER1, 0PER2,  ER,  ERLABL,  LINE, 

3  INSTER, COMNTS,  LABERR,  OPERR 

IS  THE  ENTIRE  LINE  A  COMMENT  STATEMENT  ? 

IF (COMNTS  EG  TRUE  )  RETURN 

RECREATE  LABEL  AND  ITEM  STRINGS  FROM  THE  INTERMEDIATE  CODE 
DONE  =  FALSE 

READ! 11)  TEMPI. TEMP2, TEMP3, TEMP4 
DO  10  II  «  1, 30 
IF (DONE)  CO  TO  20 
ITEM  ITMTYP  "TEMP  1 < 1 1 ) ” 

I TEM  VALUE  ” TEMP2 (II)" 

ITEM  BUFPOS  "TEMP 3 ( II)" 

ITEM  LENID  “TEMP4(I1)M 

LOOK  FOR  SEMICOLON 

IF ( TEMP  1(11)  EQ  14)  DONE  =  TRUE 
)  CONTINUE 

CHECK  FOR  LABEL  AND  CREATE  LABEL  STRING 
20  DO  30  I  1-1. b 

ASCHAR  -  LABEL  (ID 

IF (ASCHAR  EQ  BLANK)  RETURN 

QRLCHR  -  ASCGRL (ASCHAR -BLANK) 

G  STRING  LABELS  GRLCHR 
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on  oooooonj 


30 

G 

C 

C 

C 

« 


c 


c 

c 


c 


CONTINUE 

RETURN 

COMPLETE 


SUBROUTINE  OPFLD(Il) 

LOG I CAL* 1  LABEL, OPCODE,  OPRBUF,  HEX, HEXCOD.  HEXTBL,  LINE 
L0GICAL*1  BLANK, ASCI  10, ASCI  19,  ASCI  I A,  ASC I  IF, ASC I  I Z,  ASCHAR 
L0GICAL*1  LABERR,  DIRERR, OPERR, TYPERR,  INSTER, DUMMY,  DUMB 
L0GICAL*1  DEFFLG,  REGFLG,  MLTFLG,  BYTFLG.  LABFLG ,  INSFLG,  OPFLG,  RESFLG, 
1  DIRFLG,  ENDFLG, COMNTS, EXTRA, LSTFL G 


COMMON  /ASC/ 
COMMON  /ERRFLG/ 
COMMON  /NAMFLG/ 
COMMON  /LINFLG/ 
1 

COMMON  / ASSEMB / 

1 

2 

COMMON  /DATUM/ 
COMMON  /GIRLCH/ 
1 


3 

4 

5 

COMMON  /GIRL/ 

1 

2 

3 

COMMON  /ASCII/ 


L I NE (  72 ) . HEX (  4 ) ,  HEXCOD ( 4 ,  10) 

LABERR, DIRERR, OPERR, TYPERR, INSTER, DUMMY 
DEFFLG, LABFLG,  REGFLG, MLTFLG,  BYTFLG,  DUMB 
INSFLG,  OPFLG,  RESFLG,  DIRFLG,  ENDFLG,  COMNTS,  EXTRA. 
LSTFLG 

PASS,  REGSRC, REGDES. REGCQD <  2 ) , PC, LINENO, ADDRES, 
MAJVAL. COMENT,  IDSTAT,  LNSTAT ,  ERRNUM,  FMT . DIRNUM, 
0PER1, 0PER2. ER, ERLABL,  WRDNUM,  BYTNUM,  ERROR 
FIRST,  SECOND,  HEXTBLI  16) 

EXCLAM,  QUOTE,  POUND,  DOL  I.AR, PERCNT , AMPERS, APOST, 
LPAR ,  RPAR ,  STAR.  PLUS,  COMMA,  MINUS,  PERIOD,  SLASH, 
ZERO, ONE, TWO,  THREE,  FOUR,  FIVE,  SIX,  SEVEN, EIGHT, 
NINE, COLON,  SCOLON, LSTHAN,  EQUALS,  GTTHAN,  QUEST, 

ATS  I GN,  A,  B,  C,  D,  E,  F,  G,  H,  I,  J,  K,  L,  M,  N,  0,  P,  Q,  R,  S,  T,  U, 
V.  W.  X,  Y,  Z 

STRING, TOKEN, ITEM, BUFPOS, LENID, LABELS, OPCOD, STOP, 
ITMTYP, VALUE,  SYMBOL, REG,  REGSTR,  REGATS,  REGPLS, 
VARABL,  NUMBER,  LITRAL-  LOGOR,  LOGAND,  LOGNOT ,  MODULO, 
OFF IN. DIRECT. START,  TOKODE 
BLANK.  ASCI  10,  ASCI  19, ASCI  I A, ASCI  IF, ASCI  I Z 


DIMENSION  LABEL ( 6 ) . OPCODE  <  4 ) , 0PRBUF(60) 


EQUIVALENCE  ( L INE 1  ) ,  LABEL  (  I  )  ) 
EQUIVALENCE  ( l  INE < 8 ) , OPCODE ( 1 ) ) 
EQUIVALENCE  <LINE< 13). OPRBUF < 1 ) ) 

DIMENSION  OPR AND ( 2 ) 


C 

C  THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  EITHER  RETURN  THE  DECIMAL  VALUE  OF  AN 

C  OPERAND  FIELD  (FROM  COMMA  TO  COMMA)  OR  REGISTER  NUMBER  IN  "ADDRES"  AND 

C  THE  HEX  VALUE  IN  "HEX<>"  AND  TO  DETERMINE  IF  AN  EXTRA  WORD  IS  NEEDED 

C  FOR  THE  TARGET  CODE  IF  SO,  "EXTRA"  =  TRUE 

C 

MAJVAL  =  0 
EXTRA  =  FALSE 
OPRAND (FI RST )  =  O 

OPRAND( SECOND)  =  O 
OPRAN  =  FIRST 


PICK  UP  ALL  ITEMS  UNTIL  COMMA  OR  SEMI-COLON 
10  ITEM  +  ITMTYP  "II  =  11  +  l"/30  ' ITMVAL 

ITEM  ♦  VALUE  II  'ADDRES 


IS  THIS  ITEM  A  REGISTER'' 

IF (ITMVAL  GT  3)  GO  TO  15 


CHECK  FOR  eVAR(REG)  OR  @NUM ( REG ) 
IF( MAJVAL  EQ  17)  GO  TO  10 
IF ( MAJVAL  EQ  16)  GO  TO  10 
MAJVAL  =  ITMVAL 
OPRAND  (OPRAN)  =  ADDRF.S 
GO  TO  10 


r>6 


1 


c 

15  ITM  =  ITMVAL  -  3 

I F ( I TM  GT  8)  GO  TO  20 
C 

C  ITEM  IS  AN  OPERATOR 
OPRATR  =  ITM 

C 

C  SWITCH  TO  SECOND  OPERAND  _  OP  ' _ ' 

OPRAN  =  SECOND 
GO  TO  10 
C 

C  ITEM  IS  COMMA-  EXCLAM  MK.  SEMI-COLON,  LITERAL.  NUMBER,  IDENTIFIER,  OR  9 
20  ITM  =  ITM  -  8 

IF ( ( ITM  LT  1)  OR  (ITM  GT  7>>  GO  TO  100 
C 

C  .  1  .  LIT  NUM  VAR  @ 

GO  TO  <30,  40,  30,  50,  50,  60,  70)  ITM 

C 

C  ***  COMMA  OR  SEMI-COLON 
C 

C  FIELD  HAS  BEEN  COMPLETELY  EXAMINED  NO  EXTRA  WORDS  ARE  NEEDED  IF  FIELD 
C  CONTAINED  AN  "UNMODIFIED"  REGISTER 
30  ADDRES  =  OPRAND < F IRST ) 

C 

C  CONVERT  OPERAND  FROM  DECIMAL  TO  HEXADECIMAL 
CALL  DECHEX ( ADDRES, HEX ( 1 ) ) 

RETURN 

C 

C  ***  EXCLAMATION  MARK 

C 

40  OPRAND (OPRAN)  =  PC 

GO  TO  55 
C 

C  ***  LITERAL  OR  NUMBER 
C 

50  OPRAND (OPRAN)  =  ADDRES 

55  EXTRA  =  TRUE 

MAJVAL  =  ITMVAL 
IF ( OPRAN  EQ  FIRST)  GO  TO  10 
C 

C  AN  OPERAND  -  OPERATOR  -  OPERAND  TRIPLE  HAS  BEEN  FOUND 

C  COMPUTE  IT  AND  RETURN  RESULT  INTO  OPERAND  NO  1 

CALL  COMPUT (OPR AND < 1 ),  OPRATR ) 

GO  TO  7 
C 

C  ***  IDENTIFIER  (EXCLUDING  REGISTER  NAMES) 

C 

C  WAS  THE  IDENTIFIER  DEFINED  WHEN  THIS  STATEMENT  OCCURED? 

60  IF (ADDRES  GT  0)  GO  TO  50 

C 

C  OBTAIN  ADDRESS 

G  ITEM  +  BUFPOS  II  'ISTLOC 

G  ITEM  +  LENID  II  'LENGTH 

CALL  TMPSTR( ISTLOC. LENGTH) 

CALL  ADDNAM( STRING,  STRING) 

IF ( PASS  EQ  FIRST)  GO  TO  50 
C 

C  STILL  UNDEFINED'’ 

I F ( ADDRES  EQ  0)  OPERR  =  TRUE 
GO  TO  50 
C 

C  ***  AT-SIGN  9  —  NEXT  ITEM  IS  A  NUMBER  OR  VARIABLE 

C 

C  ANTICIPATE  SHORTHAND  "9<REG>"  FOR  "#0(RE0>" 

70  EXTRA  =  TRUE 

ADDRES  =  0 
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on  on  00*0000 


MAJVAL  =  16 
CO  TO  10 

100  OPERR  =  TRUE 

COMPLETE 


SUBROUTINE  TMPSTR < I STLOC ,  LENGTH ) 


L0GICAL*1  LABEL, OPCODE, OPRBUF, HEX,  HEXCOD,  BUF(40>.  LINE 
LOGICAL*!  BLANK,  ASCIIO,  ASC1I9,  ASC I IA,  ASCI  IE.  ASCIIZ.  ASCHAR 


COMMON 

COMMON 

1 

2 

COMMON 

1 

2 

3 

4 

5 

COMMON 

1 


3 

COMMON 


/AS C/  LINE (  72 ) ,  HEX  < 4  > .  HEXCOD <  4,  10> 

/ ASSEMB /  PASS,  REGSRC,  REGDES,  REGCODI 2 ) ,  PC. LINENO. ADORES, 
MAJVAL, COMENT,  IDSTAT,  LNSTAT ,  ERRNUM,  FMT , DIRNUM, 
0PER1, 0PER2, ER,  ERLABL,  WRDNUM,  BYTNUM,  ERRDR 
/GIRLCH/  EXCLAM, QUOTE, POUND,  DOLLAR,  PERCNT , AMPERS,  APOST. 

LPAR, RPAR,  STAR, PLUS, COMMA, MINUS, PERIOD, SLASH, 
ZERO, ONE,  TWO,  THREE,  FOUR,  FIVE,  SIX, SEVEN. EIGHT, 
NINE, COLON,  SCOLON, LSTHAN, EQUALS, GTTHAN, QUEST, 
ATSIGN,  A,  B,  C,  D,  E,  F,  G,  H,  I,  J,  K.  L,  M,  N,  0,  P,  Q,  R,  S,  T,  U, 
V,  W,  X.  Y,  Z 

/GIRL/  STRING,  TOKEN,  ITEM,  BUFPOS. LENID. LABELS, OPCOD, STOP, 
ITMTYP.  VALUE,  SYMBOL, REG,  REGSTR, REGATS, REGPLS, 
VARABL,  NUMBER, LITRAL, LOGOR. LOGAND,  LOGNOT, MODULO, 
OPFIN, DIRECT, START, TDKODE 
/ASCII/  BLANK, ASCIIO, ASCI  19, ASCI  I A,  ASCI  IF,  ASCIIZ 


DIMENSION  LABEL ( 6 ) , OPCODE ( 4 >, OPRBUF ( 60 ) 
DIMENSION  ASCGRL ( 58 ) 


EQUIVALENCE  (LINE < 1 )■ LABEL ( l ) ) 

EQUIVALENCE  ( L INE < 8 ), OPCODE < 1 )) 

EQUIVALENCE  <  LINE  < 13), OPRBUF ( 1 ) ) 

EQUIVALENCE  ( ASCGRL ( 1 ), EXCLAM ) ,  < HEXCOD ( 1 , 1 ), BUF ( 1 > ) 


G 

10 

G 

C 

C 

C 

* 

C 


c 


STRING  -  STRING 
LOC  =  ISTLOC 

DO  10  K1  =  1,  LENGTH 
ASCHAR  =  OPRBUF  <  LOO 
GRLCHR  =  ASCGRL (ASCHAR  -  BLANK) 
STRING  STRING  GRLCHR 
LOC  *  LOC  +  1 
CONTINUE 
RETURN 
COMPLETE 


SUBROUTINE  VARLST 


L0GICAL*1  LABEL, OPCODE, OPRBUF,  HEX,  HEXCOD,  LINE 
LOG I CAL* 1  BLANK, ASCIIO. ASCI  19, ASCI  I  A, ASCI  IF,  ASCIIZ,  ASCHAR 
L0GICAL*1  DEFFLG, LABFLG, REGFLG,  MLTFLG,  BYTFLG, DUMB, EKS 
LOGICAL*!  I DNTFR ( 6 ) , ST  ATUS ( 6 ) 


COMMON  /ASC/ 
COMMON  /ASSEMB/ 
1 
2 

COMMON  /GIRLCH/ 
1 
2 

3 

4 

5 


LINE (72), HEX (4), HEXCOD! 4, 10) 

PASS, REGSRC. REGDES,  REGC0D(2) ,  PC,  LINENO,  ADDRES, 
MAJVAL. COMENT.  I DST AT , LNST AT  ,  ERRNUM,  FMT  ,  DIRNUM, 
0PER1, 0PER2, ER, ERLABL. WRDNUM, BYTNUM, ERROR 
EXCLAM, QUOTE,  POUND,  DOLLAR, PERCNT, AMPERS,  APOST, 
LPAR, RPAR, STAR, PLUS, COMMA, MINUS,  PERIOD.  SLASH, 
ZERO. ONE, TWO, THREE, FDUR, FIVE, SIX,  SEVEN,  EIGHT, 
NINE, COLON. SCOLON, LSTHAN, EQUALS, GTTHAN. QUEST, 
ATSIGN.  A,  B.  C,  D,  E,  F,  G,  H,  I ,  J,  K.  L,  M.  N,  O.  P,  Q,  R.  S,  T,  U, 
V.  W,  X,  Y,  Z 


ri8 


COMMON  /GIRL/  STRING, TOKEN, ITEM. 8UFPOS, LENID, LABELS. QPCOD. STOP, 

1  ITMTYP, VALUE. SYMBOL,  REG.  REGSTR.  RECATS,  RECPLS, 

2  VARABL.  NUMBER.  LITRAL.  LOGOR.  LOGAND,  LOGNOT.  MODULO. 

3  OPFIN, DIRECT, START, TOKODE 

COMMON  /ASCII/  BLANK, ASC 1 10, ASC 1 19,  ASCI I A,  ASCI IF,  ASCI IZ 
COMMON  /NAMFLG/  DEFFLG,  LABFLG, REGFLG,  MLTFLG,  BYTFLG,  DUMB 
C 

DIMENSION  NAME ( 6 ) .  ALPHA ( 26 ) ,  NUMBRS  < 10) 

C 

EQUIVALENCE  < ALPHA < 1 ).  A),  < NUMBRS ( 1 ),  ZERO) 

C 

DATA  EKS  / 1HX/ 

C 

C  THIS  ROUTINE  OUTPUTS  THE  STATUS  FOR  EACH  IDENTIFIER  AND  REGISTER 
C 

WRITE! 13,  1) 

1  FORMAT!///.'  ****  IDENTIFIER  LISTING  ****',//, 

1  '  NAME  STATUS'./. 

2  12X,  'ADDRESS  REG  UNDEF  MULT  DEF  BYTE',/) 

C 

5  READ! 14. END  =  200)  NAME 

SY  *  SYMBOL 
C 

DO  10  J1  =  1.6 

IDNTFR  <  J1 )  *  BLANK 

10  STATUS! Jl)  =  BLANK 

C 

DO  100  II  =>1.6 
GRLCHR  =  NAME!  ID 
IF !GRLCHR  .  EG  0)  GO  TO  120 
C 

C  OBTAIN  ASCII  CHAR  FROM  GIRL  VALUE 
DO  20  K1  =  1.26 
LI  =  K 1 

20  IF ! GRLCHR  EG.  ALPHA! LI ) )  GO  TO  50 

C 

DO  30  K 1  =  1,10 
LI  *=  K1 

30  IF (GRLCHR  EG  NUMBRS! LI > )  GO  TO  40 

40  I DNTFR ! 1 1 )  -  ASCIIO  +  LI  -1 

CO  TO  60 

50  I DNTFR (II)  =  ASC 1 1 A  +  LI  -1 

060  SY  ♦  GRLCHR  'SY 

100  CONTINUE 

C 

G120  SY  >  STOP ( /5  'ADDRES,  2  'IDSTAT) 

REGTST  *  IDSTAT  AND  REGFLG 

DEFTST  =  IDSTAT  .  AND  DEFFLG 

MLTTST  =  IDSTAT  AND.  MLTFLG 

BYTTST  *>  IDSTAT  AND  BYTFLG 

IF (REGTST  GT  0)  STATUS! 1)  =  EKS 

IF (DEFTST  EG.  0)  STATUS<2>  =  EKS 

IF (MLTTST  GT.  0)  STATUS(3)  =  EKS 

IF ( BYTTST  GT  0)  STATUS<4>  =  EKS 

C 

CALL  DECHEX< ADDRES, HEX) 

WRITE< 13. 150)  IDNTFR, ADDRES, HEX, STATUS 
150  FORMAT ( IX. 6A1.  IX.  16,  IX, 4A1. 4X, A1 , 5X, A1 , 8X , A1 , 6X, 3A1 > 

CO  TO  5 

200  RETURN 

G  COMPLETE 

/  COMPLETE 
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t 


c 

c 

c 

SUBROUTINE  COMPUT < OPRAND, OPR ATR > 

IMPLICIT  INTEGER  (A-Z) 

C 

DIMENSION  OPRAND <  2 ) 

C 

C  THIS  ROUTINE  PERFORMS  A  COMPUTATION  ON  OPRAND ( 1 )  OPRATR  OPRAND ( 2 ) 

C  AS  DETERMINED  BY  THE  ARITHMETIC  OR  LOGICAL  OPERATOR  IN  "OPRATR"  AND 
C  PLACES  THE  RESULT  INTO  OPRAND(l). 

C 

C 

GO  TO  <  10,  20,  30,  40,  50,  60,  70,  80)  OPRATR 

C 

C  LOGICAL  OR 

C 

10  OPRAND < 1 )  -  OPRAND! 1)  OR.  0PRAND<2> 

RETURN 

C 

C  LOGICAL  AND 
C 

20  OPRAND! 1)  =  OPRAND! 1)  AND.  OPRAND (2) 

RETURN 

C 

C  LOGICAL  NOT  —  ONE'S  COMPLEMENT 
C 

30  OPRAND! 1)  *  NOT  OPRAND! 2 > 

RETURN 

C 

C  MODULO 
C 

40  OPRAND! 1)  =  MOD ! OPRAND ! 1 ), OPRAND < 2 ) > 

RETURN 

C 

C  ADD 
C 

50  OPRAND! 1)  =  OPRAND! 1)  +  OPRAND! 2) 

RETURN 

C 

C  MULTIPLY 
C 

60  OPRAND! 1)  =  OPRAND! 1)  *  0PRAND!2> 

RETURN 

C 

C  SUBTRACT 
C 

70  OPRAND! 1)  =  OPRAND! 1 )  -  0PRAND!2> 

RETURN 

C 

C  DIVIDE 
C 

80  OPRAND! 1)  =  OPRAND! 1)  /  OPRAND! 2) 

RETURN 

END 

C 

C 

C 


!>() 


SUBROUTINE  DECHE X < DECNUM,  HE X > 
IMPLICIT  INTEGER  (A  i) 


LOGICAL *1  HEX < 4 > ,  HEX IBL,  NEG 

LOG  I  CALM  BLANK,  ASC  I  10.  ASC  119.  ASC  I  I  A,  ASC  I  IF,  ASC  I  I  Z  ,  ASCHAR 

C 

COMMON  /DATUM/  FIRST.  SECOND,  HE  X  T  BL  (  16) 

COMMON  /ASCII/  BL  ANK,  ASC  1  10,  ASC  I  19,  ASC  I  I  A,  ASC  I  IF  ,  ASC  I  I  Z 
C 

C  DIMENSION  TEMP ( 4  > 

C 

C  THIS  ROUTINE  CONVERTS  THE  DECIMAL  VALUE  IN  ’DECNUM"  TO  HEXADECIMAL 
C  AND  PLACES  IT  INTO  HEX!) 

C 

NEG  =  FALSE 

IE (DECNUM  IT  0)  NEG  =  TRUE 
NUMBER  =  I ABS ( DECNUM ) 

DO  5  LI  =  1,4 
C  TEMP  <  L 1  )  =  0 

S  HE  X ( L 1  )  =  ASC I  I  0 

HEXPOS  =  S 

10  HEXPOS  =  HEXPOS  -  1 

C 

C  COMPUTE  REMAINDER  FROM  MODULUS  16 
REM  =  MOD ( NUMBER ,  16) 

C  TEMP (HEXPOS)  =  REM 

HEX  <  HEXPOS )  =  HEXTBL < REM  +  1) 

IF (NUMBER  LT  1 6 )  GO  TO  20 
NUMBER  =  NUMBER  /  16 
GO  TO  10 
C 

C  IF  NEGATIVE.  CONVERT  TO  TWO'S  COMPLEMENT  FORM 
20  I F (  NOT  NEG)  RETURN 

CALL  TWOCMP ( HE  X ( 1 ) ) 

RE  I URN 
END 


SUBROUTINE  FMT 1 ( ADRCOD ) 

IMPLICIT  INTEGER  (A-Z) 

LOG I CAL* 1  HEXTBL.  ADRCODt 3) 

COMMON  /DATUM/  F I RST.  SECOND,  HEXT BL ( 1 6 ) 

COMMON  /ASSEMB /  P ASS. REGSRC , REGDES, REGCOD ( 2 ) . PC.  L I NENO,  ADDRES, 

1  MAJVAL. COMENT,  IDSTAT.  LNSTAT.  ERRNUM.  FMT,  DIRNUM, 

2  0PER1, 0PER2, ER, ERLABL,  WRDNUM,  BYTNUM.  ERROR 


ADRCOD < 1 )  =  ( REGCOD ( 2 )  *  4)  +  ( REGDES/4  > 

ADRCOD ( 2 )  =  REGCOD ( 1  )  ♦  (4  *  MOD ( REGDES, 4 ) > 

ADRCOD! 3)  =  REGSRC 

RETURN 

END 


FUNCTION  LVLFSH( WORD.  BITS) 
IMPLICIT  INTEGER ( A-Z ) 


C  THIS  FUNCTION  PERFORMS  A  LEFT  LOGICAL  SHIFT 
C 


I F ( B I TS  EG  0)  GO  TO  10 
IF ( B I TS  GE  16)  GO  TO  20 


f)l 


non  fU—  non  non 


LVLFSH  =  WORD  *  2  **  (BITS) 
RETURN 

10  LVLFSH  =  WORD 

RETURN 

20  LVLFSH  =  O 

RETURN 
END 


FUNCTION  LVRTSH< WORD, BITS) 

IMPLICIT  INTEGER (A-Z) 

THIS  FUNCTION  PERFORMS  A  RIGHT  LOGICAL  SHIFT 


IF(BITS 

EQ  0) 

GO  TO  10 

I F  (  B I TS 

GE  16) 

GO  TO  20 

LVRTSH  = 
RETURN 

WORD  / 

2  **  (BITS) 

0 

LVRTSH  = 
RETURN 

WORD 

0 

LVRTSH  = 

RETURN 

END 

0 

C 


C 


C 


C 


SUBROUTINE  ABSOUT 
IMPLICIT  INTEGER  (A-Z) 


LOG  I CAL* 1  LABEL, OPCODE, OPRBUF,  HEX, HEXCOD.  HEXTBL,  L  INE 

LOG I  CAL *1  BLANK, ASCI  10, ASC 1 1  9, ASCI  I A, ASCI  IF,  ASCI  I Z,  ASCHAR 

LOG  I C AL* 1  LABERR,  DIRERR, OPERR,  TYPERR,  INSTER, DUMMY 

LOG I  CAL* 1  DEFFLG,  REGFLG,  BYTFLG,  LABFLG,  1NSFLG,  OPFLG,  RESFLG. 

1  DIRFLG,  ENDFLG,  COMNTS, EXTRA,  LSTFLG 

LOGICAL*!  HEXBYT ( 2,  20), PGMCTR, DUMMY2, LIN 


COMMON 

COnMGN 

COMMON 

COMMON 

1 

COMMON 

1 

2 

COMMON 

COMMON 

1 

2 

3 

4 

5 

COMMON 

1 


3 

COMMON 

COMMON 

1 


/ASC/  LINE (72), HEX (4).  HEXCOD  (4,  10) 

/ ERRFLG/  LABERR, DIRERR, OPERR, TYPERR,  INSTER. DUMMY 
/NAMFLG/  DEFFLG, LABFLG, REGFLG, BYTFLG 

/LINFLG/  INSFLG, OPFLG,  RESFLG, DIRFLG,  ENDFLG,  COMNTS,  EXTRA. 
LSTFLG 

/ASSEMB /  PASS,  REGSRC ,  REGDES,  REGCDD ( 2 ) , PC,  LINENO, ADDRES, 
MAUVAL,  COMENT,  IDSTAT, LNSTAT ,  ERRNUM,  FMT ,  DIRNUM, 
DPER 1 , 0PER2, ER. ERLABL, WRDNUM,  BYTNUM,  ERROR 
/DATUM/  FIRST, SECOND, HEXTBL< 16) 

/GIRLCH/  EXCLAM, QUOTE,  POUND, DOLLAR- PERCNT , AMPERS, APOST, 
LPAR,  RPAR,  STAR,  PLUS,  COMMA,  MINUS, PERIOD, SLASH, 
ZERO.  ONE,  TWO.  THREE,  FOUR,  FIVE,  SIX,  SEVEN,  EIGHT, 
NINE,  COLON,  SCOLON,  LSTHAN,  EQUALS,  GTTHAN, QUEST, 
ATSIGN,  A,  B,  C,  D,  E,  F,  G,  H,  I,  J,  K,  L,  M,  N,  0,  P,  0,  R,  S,  T,  U, 
V,  W,  X,  Y.  Z 

/GIRL/  STRING,  TOKEN,  ITEM,  BUFPOS, LENID, LABELS. OPCOD, STOP, 
ITMTYP,  VALUE,  SYMBOL,  REG,  REGSTR,  REGATS,  REGPLS, 
VARABL,  NUMBER,  LITRAL, LOGOR, LOGAND.  LOGNOT- MODULO, 
0PF1N, DIRECT, START, TOKODE 
/ASCII/  BLANK, ASCI  10,  ASCI  19,  ASCI  I A,  ASCI  IF,  ASC I  I Z 
/LOCAL/  NUM1 , NUM2, NUM3, LINCT1,  LINCT2,  L1NCT3,  PGMCTR ( 5) , 
DUMMY2.  OLDPC , OLDBYT.  LIN(4B> 


DIMENSION  LABEL ( 6 ) ,  OPCODE (4),  OPRBUF (60) 

EQUIVALENCE  ( L INE ( 1 ), LABEL ( 1 )  ) 
EQUIVALENCE  < L INE < 8 ), OPCODE ( 1 ) ) 
EQUIVALENCE  ( L INE ( 1 3 ), OPRBUF < 1 ) ) 
EQUIVALENCE  (HEXCOD<  1,1),  HEXBYT ( 1,1)) 


f>2 


DATA  PGMCTR  /1H0,  1H1,  1HO.  1HO,  1H  / 

DATA  NUM1, NUMP,  NUM3.  OLDPC,  OLDDYT  /O,  1 , 0, 256. 0/ 
DATA  LINCT1.  LINCT2,  LINCT3  /1,2, 3/ 


TEST  FOR  MODIFICATION  OF  PC 
IF ( ( DIRNUM  EG  3)  OR 

DO  180  II  =  I,  8YTNUM 
L  I N  < L INCT 1 )  =  BLANK 
L 1 N ( L 1 NC T  2  )  =  HEXBYT  <  1 .  11) 
LIN(LINCT3>  =  HEXBYT <  2,  II) 

HAS  A  LINE  BEEN  FILLED"' 

IF (LINCT3  GE  < 1 6*3 >  >  GO  TO  120 


(DIRNUM  FQ  20))  GO  TO  500 


IF  NOT  FILLED.  IS  THIS  THE  LAST 
IF ( ENDFLG )  GO  TO  200 
LINCT1  =  LINCT1  +  3 

LINCT2  =  LINCT2  +  3 

LI NOT 3  -  LINCT3  +  3 

GO  TO  180 


LINE  OF  THE  PROGRAM' 


C 
C 

120 
101 
C 

C  UPDATE  COUNTERS  AND  THE  PROGRAM  COUNTER  ARRAY 


OUTPUT  THIS  LINE 

WRITE< 12. 101 >  PGMCTR. LIN 
FORMAT (53A1 ) 


LINCT1  =  1 
LINCT2  =  2 
LINCT3  =  3 

C 

NUM3  =  NUM3 

C 

C  CARRY? 

I F  <  NUM3  LE 
NUM3  =  0 

NUMP  =  NUMP 

c 

C  CARRY"' 

IF! NUM2  LE 
NUM2  =  0 

NUM1  =  NUM1 

I F  <  NUM 1  GE 

I F  <  <  NUM 1  GE 

1 

PAUSE  '***♦  1 
PGMCTR ( 1 )  «  1 

160 

PGMCTR (2)  =  1 

170 

PGMCTR (3)  =  1 

180 

CONTINUE 

15)  GO  TO  170 


15)  GO  TO  160 
♦  1 

16)  STOP  '***#  ERROR.  PROGRAM  EXCEEDS  FFFF ' 

8 )  AND  ( NUM2  GE  8 ) ) 

WARNING.  PROGRAM  EXCEEDS  87FF.  (CR)  TO  CONTINUE' 
HE  XTBL ( NUM1  +  1) 

HEXTBL  <  NUM2  ♦  1) 

HEXTBL ( NUM3  +  1) 


GO  TO  600 


C 

C  BLANK 
200 


OUT  END  OF  LAST  LINE 
NOMORE  *  LINCT3  +  1 
DO  250  JJ  «  NOMORE. 43 
250  LIN(JJ)  =  BLANK 

WRITE! 12. 101 >  PGMCTR, LIN 
GO  TO  600 
C 

C  PC  MODIFICATION.  ZERO  FILL  TO  PC  (FROM  "BSS"  AND  "/") 
C  COMPUTE  NEW  LINE  NUMBER  ( HE X ( 1 ) -HEX ( 3 ) )  AND  COUNTERS 
500  PC TEMP  =  PC 

CALL  DECHEX(PCTEMP, HEX) 

NUM1  =  HEX ( 1 )  -  ASC I  10 

NUMP  *  HEX (2)  -  ASC I  10 
NUM3  *  HE  X ( 3 )  -  ASC 1 1 0 
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I F ( NUM 1 

GT 

9) 

NUM 1  =  HE  X ( 1 ) 

-  ASCIIA 

4- 

10 

I F ( NUM2 

GT 

9) 

NUM2  =  HEX (2) 

-  ASCIIA 

♦ 

10 

IF ( NUM3 

GT 

9) 

NUM3  =  HE  X ( 3 ) 

-  ASCI IA 

♦ 

10 

C  CALCULATE  DIFFERENCE  TO  NEW  LOCATION 
DIFRNC  =  PC  -  OLDPC 


SIX  POSSIBILITIES 

A)  NO  MODIFICATION 

B)  READY  TO  START  NEW  LINE 

C)  ZERO  FILL  TO  THE  MIDDLE  OF  THE  OUTPUTTED  LINE 

D >  ZERO  FILL  TO  THE  END  OF  THE  OUTPUTTED  LINE 

E)  ZERO  FILL  TO  THE  END  OF  THE  OUTPUTTED  LINE  AND  PART  OF  ANOTHER 

LINE 

F)  ERROR.  PC  REQUEST  IS  LESS  THAN  CURRENT  PC 


TYPE  999.  NUM1,  NUM2.  NUM3.  OLDPC, OLDBYT, ENDLIN, DIFRNC. PC 
FORMAT (IX, 8(16.  2X  > ) 


IF ( DIFRNC  LT  0)  GO  TO  700 

IF (DIFRNC  EQ  0)  GO  TO  600 

I F ( L I NCT 1  EQ  I i  GO  TO  570 

C 

C  ZERO  FILL  OLD  LINE 
530  DO  550  11  =  1, DIFRNC 

LIN(LINCTI)  =  BLANK 
L IN ( L INCT2 )  =  ASCIIO 
L I N ( L I NCT3 )  =  ASCIIO 
IF ( L I NCT3  GE  48)  GO  TO  560 
L I NCT 1  =  LINCT1  +  3 

LINCT2  =  LINCT2  +  3 

LINCT3  =  LINCT3  +  3 

550  CONTINUE 

GO  TO  600 
C 

D  TYPE  999,  NUM1 ,  NUM2.  NUM3,  OLDPC ,  OLDBYT,  ENDL I N.  D IFRNC ,  PC 

D999  FORMAT ( IX,  8< 16,  2X > ) 

C 

C  OUTPUT  OLD  LINE  AND  UPDATE  COUNTER 
560  URITE< 12.  101 )  PGMCTR.  LIN 

570  DO  580  U  *  1,3 

580  PGMCTR  (II)  =  HEX(Il) 

C 

C  ZERO  FILL  THE  BEGINNING  OF  THE  NEW  LINE 
LINCT1  =  1 
LINCT2  =  2 
LINCT3  =  3 

DIFRNC  =  HEX ( 4 )  -  ASCIIO 

IF  (DIFRNC  GT  9)  DIFRNC  =  HEX(4>  -  ASCUA  +  10 
IF (DIFRNC  EQ  0)  GO  TO  600 
DO  590  11  =  1.  DIFRNC 
IF ( L INCT3  GT  48)  GO  TO  600 
L I N ( L I NC  T 1 )  =  BLANK 
L IN ( L INCT2 )  =  ASCIIO 
L IN ( L INCT3  >  =  ASCIIO 
LINCT1  =  L I NCT 1  +  3 
LINCT2  =  LINCT2  +  3 
590  LINCT3  =  LINCT3  +  3 

600  OLDPC  =  PC 

OLDBYT  =  BYTNUM 
RETURN 

700  TYPE  701, PC. OLDPC 

701  FORMAT (IX,  '***  ERROR  ***.  PC  REQUEST  OF',  15,  '  IS  LESS  THAN  THE 
1  CURRENT  PROGRAM  COUNTER', 15) 

STOP 
END 


SUBROUTINE  SRCLST < THISPC ) 

IMPLICIT  INTEGER  <A-Z> 

LOGICAL* 1  LABEL. OPCODE. OPRBUF. HEX, HEXCOD,  HEXTBL.  LINE 
LOG  I CAL* 1  BLANK, ASCI  10,  ASCI  19,  ASCI  I A.  ASCI  IF,  ASCI  I Z,  ASCHAR 
L0GICAL*1  LABERR, DIRERR, OPERR, TYPERR, INSTER, DUMMY 
L0GICAL*1  DEFFLG, REGFLG,  BYTFLG, LABFLG,  INSFLG, OPFLG, RESFLG, 
1  DIRFLG, ENDFLG,  COMNTS,  EXTRA.  LSTFLG 

LOGICAL*!  PGMCTR,  DUMMY2,  HXC0DE(4>,  LIN 


COMMON  /ASC/  LINE <  72 ) , HEX ( 4 > , HEXCOD <4,  10 ) 

COMMON  /ERRFL.G/  LABERR, DIRERR, OPERR, TYPERR.  INSTER,  DUMMY 
COMMON  /NAMFLG/  DEFFLG, LABFLG, REGFLG,  BYTFLG 

COMMON  /LINFLG/  INSFLG, OPFLG- RESFLG, DIRFLG, ENDFLG,  COMNTS,  EXTRA, 

1  LSTFLG 

COMMON  /ASSEMB/  P ASS, REGSRC , REGDES. REGCOD ( 2 ) , PC,  L I NENO.  ADDRES, 

1  MAJVAL, COMENT,  IDSTAT, LNSTAT, ERRNUM,  FMT , DIRNUM. 

2  0PER1, 0PER2, ER, ERLABL,  WRDNUM,  BYTNUM,  ERROR 
COMMON  /DATUM/  F I RST.  SECOND, HEXTBL < 1 6 > 

COMMON  /GIRLCH/  EXCLAM, QUOTE. POUND, DOLLAR,  PERCNT,  AMPERS,  APOST, 

1  LPAR, RPAR, STAR, PLUS, COMMA,  MINUS.  PERIOD,  SLASH. 

2  ZERO, ONE, TWO,  THREE,  FOUR,  FIVE,  SIX.  SEVEN,  EIGHT, 

3  NINE,  COLON,  SCOLON, LSTHAN,  EQUALS,  GTTHAN,  QUEST, 

4  ATSIGN,  A,  B,  C.  D,  E,  F,  G,  H.  I,  J,  K,  L,  M,  N,  0,  P.  Q.  R.  S,  T,  U, 

5  V,  W.  X.Y,  Z 

COMMON  /GIRL/  STRING, TOKEN,  ITEM, BUFPDS.  LENID,  LABELS,  OPCOD,  STOP. 

1  ITMTYP, VALUE, SYMBOL.  REG,  REGSTR,  REGATS,  REGPLS, 

2  VARABL, NUMBER, LITRAL, LOGOR, LOGAND.  LOGNOT,  MODULO. 

3  OPFIN. DIRECT, START,  TOKODE 

COMMON  /ASCII/  BLANK, ASCI 10- ASCI 19, ASCI  I A- ASC I  IF,  ASC 1 1 Z 

COMMON  /LOCAL/  NUM1 , NUM2, NUM3, LINCT 1 ,  L I NCT2,  L INCT3,  PGMCTR < 5 > , 

1  DUMMY2, OLDPC,  DLDBYT,  LIN (48) 


D I MENS I ON  LABEL  <  6 ) . OPCODE 1 4  > . OPRBUF 1 60 ) 

C 

EQUIVALENCE  < L INE < 1 ), LABEL ( 1 ) > 

EQUIVALENCE  < L INE < 8 ), OPCODE ( 1 ) ) 

EQUIVALENCE  ( L I NE ( ! 3) .  OPRBUF  ( 1 >  > 

C 

C  IF  THE  "LIST"  DIRECTIVE  IS  SET,  THIS  ROUTINE  WILL  OUTPUT  THE  INPUT  LINE, 
C  LINE  STATUS  AND  TARGET  CODE 
C 

C  OBTAIN  HEX  VALUE  OF  PC 

CALL  DECHE  X  <  TH I SP  C ,  HEX) 

C 

C  IS  THIS  LINE  A  COMMENT? 

I F ( .  NOT .  COMNTS)  GO  TO  5 
WRITE! 13.  200)  LINENO, LINE 
200  FORMAT! IX,  15, 40X, 72A1 > 

RETURN 


DO  10  II  =  1,4 

HXCODE ! 1 1 )  =  HEXCOD! 11,1) 

N1  =  61 
N1  -  N1  -  1 

IF  INI  LE  1 )  GO  TO  20 

IF IOPRBUF INI )  EQ  BLANK)  GO  TO  15 

WRITE! 13. 100)  LINENO, THISPC, HEX, LNSTAT, HXCODE- LABEL, OPCODE, 

1  ( OPRBUF (K1),K1*1,N1) 

FORMAT! IX, 15, 3X. 15, 2X, 4A1, 6X, I3.8X, 4A1, 5X, 6A1, IX, 4A1, 4X. 60A1 ) 
IF (WRDNUM  EQ  1)  RETURN 
DO  30  1 1  -  2. WRDNUM 

WRITE! 13, 25)  (HEXCOD! Jl.  1 1 ),  J1  =  1.4) 

CONTINUE 
FORMAT! 37 X,  4A1  ) 

RETURN 

END 
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c 

c 

c 


SUBROUTINE  ERROUT ( THISPC ) 
IMPLICIT  INTEGER  <A-Z> 


LOG I CAL* 1  LABEL, OPCODE, OPRBUF,  HEX,  HEXCQD,  HEXTBL,  LINE 

LOG  I CAL* 1  BLANK, ASCI  10,  ASCI  19,  ASCI  I A, ASCI  IF, ASCIIZ,  ASCHAR 

LOG I CAL* 1  LABERR, DIRERR, OPERR,  TYPERR,  INSTER,  DUMMY 

LOG  I C AL* 1  DEFFLG,  REGFLG, BYTFLG, LABFLG,  INSFLG. OPFLG. RESFLG, 

1  DIRFLG, ENDFLG,  COMNTS,  EXTRA,  LSTFLG 

LOGICAL*!  PGMCTR, DUMMY2,  HXCODE ( 4 > ,  L IN 


COMMON 

COMMON 

COMMON 

COMMON 

1 

COMMON 

1 

n 

COMMON 

COMMON 


3 

4 

5 

COMMON 


3 

COMMON 

COMMON 

1 


/ASC/ 

/ERRFLG/ 

/NAMFLG/ 

/LINFLG/ 

/ ASSEMB/ 


/DATUM/ 

/GIRLCH/ 


/GIRL/ 


/ASCII/ 

/LOCAL/ 


LINE( 72),  HEX (4), HEXC0D(4,  10) 

LABERR, DIRERR, OPERR, TYPERR,  INSTER,  DUMMY 
DEFFLG, LABFLG, REGFLG. BYTFLG 

INSFLG, OPFLG, RESFLG, DIRFLG, ENDFLG, COMNTS, EXTRA, 
LSTFLG 

PASS, REGSRC , REGDES, REGCOD ( 2 ) , PC, LINENO, ADDRES, 
MAJVAL, COMENT, IDSTAT, LNSTAT, ERRNUM, FMT, DIRNUM. 
0PER1, 0PER2,  ER,  ERl.ABL,  WRDNUM,  BYTNUM,  ERROR 
FIRST,  SECOND,  HEXTBL <  16> 

EXCLAM, QUOTE,  POUND,  DOLLAR.  PERCNT,  AMPERS.  APOST, 
LPAR, RPAR,  STAR,  PLUS, COMMA, MINUS,  PERIOD,  SLASH, 
ZERO, ONE, TUO, THREE. FOUR, FIVE, SIX, SEVEN, EIGHT, 
NINE.  COLON,  SCOLON, LSTHAN,  EQUALS,  GTTHAN,  QUEST, 

ATS  I GN,  A.  B,  C,  D.  E,  F,  G,  H,  I,  J,  K,  L.  M,  N,  O,  P,  Q,  R,  S,  T,  U, 
V,  W,  X.  Y,  Z 

STRING. TOKEN, ! I EM, BUFPOS, LENID, LABELS. OPCOD, STOP, 
ITMTYP, VALUE,  SYMBOL. REG,  REGSTR,  REGATS,  REGPLS, . 
VARABL.  NUMBER.  LITRAL, LOGOR,  LOGAND,  LOGNOT,  MODULO. 
OPFIN, DIRECT. START. TOKODE 

BLANK.  ASCI  10. ASCI  19,  ASCI  I A,  ASCI  IF,  ASCIIZ 
NUM1.  NUM2,  NUM3,  LINCT1.  LINCT2, LINCT3.  PGMCTR l 5 ) , 
DUMMY2.  OLDPC  •  OL  DB  Y  T ,  I.IN(48> 


DIMENSION  LABEL.  16).  0PC0DE<4>,  OPRBUF  i  60  > 

FOUIVAI  FNCE  (LINE (  1  ).  LABEL! 1  )  ) 
EQUIVALENCE  < L I NE ( 8 )  .  OPCODE ( 1 )  ) 
EQUIVALENCE  < L I NE < 1 3 ) .  OPRBUF < 1 )  ) 

DATA  TEST  /O/ 


C 

0  OBTA 


LNSTAT  =  O 

IF ( LABERR  >  LNSTAT  -  2 
IF< INSTER)  LNSTAT  =  LNSTAT  +  4 
IF ( OPERR )  LNSTAT  =  LNSTAT  0 
I F ( LNST  AT  EQ  0)  RETURN 

IN  HEX  VALUE  OF  PC 

CALL  DECHEX ( THISPC.  HEX ) 


DO  10  II  =  1.4 

HXCODE (II)  =  HEXCOD (II.  1 ) 

IF (TEST  EQ  1 )  GO  TO  70 
TYPE  50 

FORMAT!/.  IX,  '  ****  ERROR  ****') 

TYPE  60 

FORMAT  <  '  LINE  NC)  ADDRESS  LINE  STATUS  OBJ  CODE  LADEL 

1  INSTR  OP  FIELD ' ) 

TEST  =  1 

TYPE  100.  LINENO, THISPC, HEX. LNSTAT. HXCODE, LABEL. OPCODE, OPRBUF 
FORMAT!  IX.  15,  3X,  I5.2X.4A1.6X,  I3.7X,4A1,6X,6A1,  1X.4A1.4X.  fcOAl  ) 
RETURN 
END 
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SUBROUTINE  TWOCMP(HEX) 

IMPLICIT  INTEGER  <A-Z> 

LOG I CAL* 1  HEX (4), HEXTBL, NEG 

LOG ICAL*1  BLANK, ASCI  10, ASCI  19,  ASCI  I A, ASCI IF, ASCIIZ,  ASCHAR 
COMMON  /DATUM/  F IRST, SECOND, HEXTBL < 16 ) 

COMMON  /ASCII/  BLANK. ASCI  10,  ASCI  19, ASCI  I A. ASCI  IF, ASCIIZ 
DIMENSION  TEMP (4) 

THIS  ROUTINE  CONVERTS  A  HEX  NUMBER  OF  FOUR  ASCII  DIGITS  TO  ITS 
2'S  COMPLEMENT  FORM  IN  ASCII  CODE 
PLACE  INTEGER  EQUIVALENT  INTO  "TEMP" 

DO  30  N1  =  1.4 

VAL  =  HEX  <  N1 )  -  ASCI  10 

IF < VAL  GT.  9)  VAL  =  HEX(Nl)  -ASCIIA  +  10 
TEMP(Nl)  =  15  -  VAL 
O  CONTINUE 

TEMP  <  4 )  =  TEMP (4)  +  1 

CHECK  FOR  OVERFLOW 
N1  =  5 

40  N1  =  N1  -  1 

IF < TEMP < N1 )  .  LE.  15)  GO  TO  50 
TEMP(Nl)  =  0 
IF(N1  .  LE.  1)  GO  TO  50 
TEMP (Nl-l )  =  TEMP(Ni-l)  «■  1 
GO  TO  40 
C 

50  DO  60  N 1  =  1,4 

HEX  <N1 )  *  HEXTBL < TEMP < N1 )  +  1) 

60  CONTINUE 

RETURN 
END 
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APPENDIX  C 

VARIABLES  IN  LABELED  COMMON 


/ASSEMB/ 

PASS 

REGSRC 

REGDES 

REGCODQ 


PC 

LINENO 

ADDRES 

MAJVAL 

COMENT 

IDSTAT 


-  Assembler  pass  number.  It  is  set  to  either  1  or  2. 

-  Source  field  workspace  register  number.  Value  range  0-15. 

-  Destination  field  workspace  register  number.  Value  range  0-15. 

-  Source  (1)  and  destination  (2)  register  codes.  Allowable 
values: 

Ri  =  0 
*Ri  =  1 
@Ri  =  2 
*Ri+  =  3 

-  Current  value  of  Program  Counter. 

It  is  reset  at  the  beginning  of  pass  two  and  has  a  default 
value  of  100^  (256^).  It  is  user  modifiable  (see 

directives  AORG,  /,  BSS) . 

-  Input  line  number. 

-  Used  by  Subroutine  ADDNAM  to  return  an  address  value  for  a 
requested  identifier.  Value  is  zero  if  identifier  is  not  yet 
defined.  It  is  used  by  Subroutine  OPFLD  to  return  the  value 
of  a  complete  operand  field. 

-  Output  from  Subroutine  OPFLD.  It  is  used  by  Subroutine  ITMSCN 
to  check  that  an  operand  field  is  semantically  correct.  Refer 
to  Tables  1  and  2. 

-  Location  of  the  semicolon  in  the  input  line.  It  indicates 
where  comments  begin  for  that  line.  Value  range  is  1  to  60. 

-  Output  from  Subroutine  ADDNAM.  It  holds  the  status  of  the 
retrieved  identifier.  Allowable  values  include  various 
combinations  of  the  following: 


1 

2 

4 

8 


Identifier 
Identif ier 
Identif ier 
Identif ier 


has  been  defined 
is  a  register 
is  multipli-def ined 
is  a  halfword  (byte) . 


fHBClUM}  PAOB  BUNK-MOT 
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LNSTAT 


ERRNUM 

FMT 


DIRNUM 


OPERl  and 
OPER2 

ER 

ERLABL 


WRDNUM 


BYTNUM 


ERROR 

/GIRLCH/ 


-  Status  of  the  input  statement.  Allowable  values  include  any  cumulative 
combination  of  the  following: 

2  -  Label  error 

4  -  Instruction  or  directive  error 

8  -  Operand  error 

-  Reserved  for  future  program  enhancement . 

-  Output  from  Subroutine  INSTRU.  At  the  successful 
completion  of  a  search  of  the  instruction-directive 
tree,  FMT  contains  the  operand  format  number  for  the 
requested  instruction.  Refer  to  Tables  1  and  2. 

-  Output  from  Subroutine  INSTRU.  At  the  successful 
completion  of  a  search  of  the  instruction-directive 
tree,  DIRNUM  contains  the  directive  number  which 
uniquely  defines  the  directive.  Refer  to  Table  3. 

-  Output  from  Subroutine  INSTRU.  At  the  successful 
completion  of  a  search  of  the  instruction-directive 
tree,  OPERl  and  0PER2  contain  the  ASCII  equivalent 
of  the  instruction  skeleton. 

-  State  pointer  for  the  identifier  tree. 

-  State  pointer  for  the  identifier  tree.  It  points  to 
the  last  source  node  in  the  string  describing  the 
current  label.  Its  link  is  always  "STOP."  Refer  to 
discussion  on  the  identifier  tree. 


-  Number  of  words  required  by  either  an  instruction  or  a 
directive.  It  is  computed  during  the  first  (pass)  call 
to  Subroutine  ITMSCN.  Value  range  is: 

Instructions  Directives 

1-3  0-10 


-  Number  of  bytes  required  by  either  an  instruction  or  a 
directive.  It  is  computed  during  the  first  (pass)  call 
to  Subroutine  ITMSCN  and  is  an  input  to  Subroutine 
ABSOUT.  Value  range  is: 

Instructions  Directives 

2-6  0-20 

-  Reserved  for  future  program  enhancement 


-  EXCLAM .QUOTE , POUND , DOLLAR , P ERCNT , AMPERS , APOST , LPAR , RPAR , S TAR , 
PLUS , COMMA , MINUS , PERIOD , SLASH , ZERO , ONE , TWO , THREE , FOUR , FIVE , 

S IX , S  EVEN , EIGHT , NINE , COLON , SCOLON , LSTHAN , EQUALS , GTTRAN , QUEST , 


ATSIGN, A, B.C,D,E,F,G,H,I,J,K,L,M,N,0,P,Q,R,S,T,U,V,W,X,Y,Z 
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2 

These  variables  are  defined  within  GIRL  to  represent  the  particular  character 
as  named. 

/ERRFLG/  -  The  following  logical*l  variables  have  the  indicated 
meanings  when  set  to  .TRUE.: 

LABERR  -  Label  error  such  as  multiple  definition. 

DIRERR  -  Not  used  in  present  version. 

OPERR  -  Error  in  operand  field. 

TYPERR  -  Reserved  for  future  program  enhancement. 

INSTER  -  Instruction  name  or  directive  name  error. 

DUMMY  -  Filler  byte  to  make  this  common  block  contain  an 

even  number  of  bytes. 

/NAMFLG/  -  The  following  flags  indicate  label  status.  If  the  status 
of  an  identifier  includes  any  of  the  flags,  then  that 
identifier  has  the  following  properties: 

DEFFLG  -  Identifier  has  been  defined  and  given  an  address  by 
virtue  of  placement  in  the  label  field. 

LABFLG  -  Not  used  in  present  version. 

REGFLG  -  Identifier  is  a  register. 

MLTFLG  -  Identifier  appears  in  the  label  field  more  than  once. 

BYTFLG  -  Identifier  is  halfword  size. 

DUMB  -  Filler  byte  to  make  this  common  block  contain  an 

even  number  of  blocks. 

/LINFLG/ 

INSFLG  -  Not  used  in  present  version. 

^  OPFLG  -  Not  used  in  present  version. 

RESFLG  -  Reserved  for  future  program  enhancement. 

*1 

f,'\  DIRFLG  -  Not  used  in  present  version. 

ENDFLG  -  Set  to  .TRUE,  when  END  directive  is  encountered. 

COMNTS  -  Set  to  .TRUE,  if  entire  input  line  is  a  comment  statement. 


EXTRA  -  Input  to  Subroutine  ITMSCN  from  Subroutine  OPFLD.  It 
set  to  .TRUE.  If  there  is  a  memory  reference  in  an 
operand  field,  thus  requiring  an  extra  machine  code 
word  on  output. 


LSTFLG  -  Set  to  .TRUE,  if  LIST  directive  is  encountered. 


1 


appendix  d 

SAMPLE  SET  OF  INSTRUCTIONS  AND  DIRECTIVES 
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JIM 


LIST 

A 
AB 
ABS 
AI 

AND  I 
UNL 
ABS 
AI 

AND  I 
b 

BILL  BL 

BLWP 

JOE  BSS 

SID  BYTE 

C 

BYTE 

BYTE 

BYTE 

BYTE 

CB 

Cl 

CLR 

COC 

CZC 

WALTER  DATA 
DEC 
DECT 
DIV 
DXOP 

JOAN  EQU 
CNTHIA  EQU 
AI 
AI 

SHIRA  EVEN 
CAROL  BYTE 
RAE  EVEN 
IDLE 
IN 
INC 
INCT 
INV 
JEQ 
JCT 
JH 
JHE 
JL 
JLE 
JLT 
JMP 
JNC 
JNE 
JNO 
JOC 
JOP 

QRTF  LDCR 
PLKJ  LI 
FHCDJ  LIMI 


Rl. R2, 

R2.R1. 

Rl. 

Rl. >ABC; 

R2. >ABC , 

Rli 

Rl. >ABC; 

R2> >ABC; 

Rl; 

R2; 

R2; 

>A; 

>10. 128; 
R2.R1; 

'A'; 

'B '; 

'C  '; 

'D'; 

R1.R2; 

Rl, >7FF; 

R2; 

R2. Rl; 

R2.R1; 

'AB'.  >23; 

Rl; 

R2; 

R2. Rl; 

; 

3+5*6; 
JOAN+lO+6; 
Rl,  JOAN; 

Rl, RAE; 

i 

'A',  *B*.  >EF; 


0 

Rl; 

R2; 

R2; 

Rl; 

300; 

•300; 

300; 

300; 

300; 

300; 

300; 

300; 

300; 

300; 

300; 

300; 

300; 

Rl.  B; 

Rl. >ABC; 
>ABC; 
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PYTRV 

LWPI 

HJFG 

MOV 

SFD 

MOVB 

UR 

MPY 

XZC 

NEC 

WRGY 

NO P 

LKUY 

ORI 

PGTYR 

OUT 

RT 

LDFWQ 

RTWP 

UTUEY 

S 

QAZXC 

SB 

PLMN 

SBO 

EFVBG 

SBZ 

DCFE 

SETO 

POI J 

SLA 

QUER 

SOC 

WALT 

SOCB 

KLEE 

SRA 

TJUF 

SRC 

PETW 

SRL 

SDUER 

STCR 

UDFVE 

STST 

EVEFR 

STWP 

SWPB 

PLKJH 

SZC 

SKJHY 

SZCB 

LADWT 

TB 

TEXT 

EVEN 

END 

WERE 

X 

GSPK 

XOP 

NVBCW 

XOR 

/ 

IN 

INC 

INCT 

INV 

JEQ 

JGT 

JH 

JHE 

JL 

JLE 

JLT 

END 

>ABCi 
Rl,  R2; 
Rl,  R2; 
R2. Rl • 
Rli 

i 

Rl. >ABC; 
Rli 


Rl.  R2> 

R2.  Rl. 

14; 

20; 

Rl; 

Rl.  12; 

Rl.  R2; 

R2.  Rl; 

R2.  10; 

Rl.  12; 

R2.  8; 

R2.  IS; 

Rl; 

Rl; 

Rl; 

R2.  Rl; 

R2. Rl; 

18; 

'EXAMPLE'; 


I 

R2; 

R2 ; 

Rl.  R2; 

>60A; 

Rl; 

R2. 

R2; 

Rl; 

300; 

*300 i 

300; 

300; 

300; 

300; 

300; 
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APPENDIX  E 

SOURCE  AND  IDENTIFIER  LISTING  GENERATED  FROM 
APPENDIX  A  AS  INPUT 


BRBCXDXDO  PAOS  BUNK-WOT  FILMED 


LINE  NO. 

ADDRESS 

LINE  STATUS 

OBJ  CODE 

LABEL 

1NSTR 

OP  FIELD 

1 

LIST 

i 

2 

256 

0100 

0 

A0B1 

A 

Rl.  R2i 

3 

258 

0102 

0 

B042 

JIM 

AB 

R2.  Rl; 

4 

260 

0104 

0 

0741 

ABS 

Rl; 

5 

262 

0106 

0 

0221 

OABC 

AI 

Rl, >ABC; 

6 

266 

010A 

0 

0242 

OABC 

AND  I 

R2, >ABC ; 

7 

UNL 

i 

8 

270 

010E 

0 

0741 

ABS 

Rl; 

9 

272 

0110 

0 

0221 

OABC 

AI 

Rl. >ABC; 

10 

276 

0114 

0 

0242 

OABC 

AND  I 

R2, >ABC; 

1 1 

280 

0118 

0 

0441 

B 

Rl; 

12 

282 

01 1A 

0 

0682 

BILL 

BL 

R2; 

13 

284 

one 

0 

0402 

BLWP 

R2; 

14 

286 

01  IE 

0 

JOE 

BSS 

>A; 

15 

296 

0128 

0 

1080 

SID 

BYTE 

>10. 128; 

16 

298 

012A 

0 

8042 

C 

R2.  Rl; 

17 

300 

012C 

0 

41 

BYTE 

'A'; 

18 

301 

01 2D 

0 

42 

BYTE 

'B'; 

19 

302 

012E 

0 

43 

BYTE 

'C  '; 

20 

303 

012F 

0 

44 

BYTE 

'D'. 

21 

304 

0130 

0 

9081 

CB 

Rl,  R2; 

22 

306 

0132 

0 

0281 

07FF 

Cl 

Rl, >7FF; 

23 

310 

0136 

0 

04C2 

CLR 

R2; 

24 

312 

0138 

0 

2042 

COC 

R2,  Rl; 

25 

314 

013A 

0 

2442 

CZC 

R2,  Rl; 

26 

316 

013C 

0 

4142 

0023 

WALTER 

DATA 

'AB  , >23 

27 

320 

0140 

0 

0601 

DEC 

Rl; 

28 

322 

0142 

0 

0642 

DECT 

R2; 

29 

324 

0144 

0 

3C42 

DIV 

R2,  Rl; 

30 

DXOP 

i 

31 

JOAN 

EOU 

3+5*6; 

32 

CNTHIA 

EQU 

JOAN+1 0+6; 

33 

326 

0146 

0 

0221 

0030 

AI 

R 1  *  JOAN; 

34 

330 

014A 

0 

0221 

0151 

AI 

Rl,  RAE; 

35 

SHIRA 

EVEN 

i 

36 

334 

014E 

0 

4142 

EF 

CAROL 

BYTE 

'A',  *B*. 

37 

337 

0151 

0 

00 

RAE 

EVEN 

i 

38 

338 

0152 

0 

0340 

IDLE 

i 

39 

340 

0154 

0 

2C41 

IN 

Rl; 

40 

342 

0156 

0 

0582 

INC 

R2; 

«  1 

344 

0158 

0 

05C2 

INCT 

R2; 

•» 

346 

015A 

0 

0541 

INV 

Rl; 

« 

140 

0I5C 

0 

1 3E7 

JEG 

300; 

«  1 

160 

015E 

0 

1  5E6 

JGT 

@300; 

‘ 

"1.’ 

0  1  60 

0 

1 BE5 

JH 

300; 

’^4 

1  62 

0 

14E4 

JHE 

300; 

S4 

0 

1 AF3 

JL 

300; 

*  H 

.  A 

rl 

12E2 

JLE 

300; 

*  M 


49 

360 

0168 

0 

11E1 

JLT 

300 

50 

362 

016A 

0 

10E0 

JMP 

300 

51 

364 

016C 

0 

17DF 

JNC 

300 

52 

366 

016E 

0 

16DE 

JNE 

300 

53 

368 

0170 

0 

19DD 

JNO 

300 

54 

370 

0172 

0 

18DC 

JOC 

300 

55 

372 

0174 

0 

1CDB 

JOP 

300 

56 

374 

0176 

0 

3201 

QRTF. 

LDCR 

R1.8: 

57 

376 

0178 

0 

0201 

PLKJ 

LI 

Rl»  >ABC< 

OABC 

58 

380 

017C 

0 

0300 

FHGDJ 

LIMI 

>ABC; 

OABC 

# 

59 

LIST  ; 

60 

384 

0180 

0 

02E0 

PYTRV 

LWPI 

>ABC; 

OABC 

61 

388 

0184 

0 

C081 

HJFG 

MOV 

Rl.  R2i 

62 

390 

0186 

0 

D081 

SFD 

MOVB 

Rl.  R2> 

63 

392 

0188 

0 

3842 

UR 

MPY 

R2.  R 1  » 

64 

394 

018A 

0 

0501 

X2C 

NEG 

Rli 

65 

396 

0180 

0 

1000 

UROY 

NOP 

* 

66 

398 

018E 

0 

0261 

LKUY 

OR  I 

R 1 .  >ABC ; 

OABC 

67 

402 

0192 

0 

2C81 

PQTYR 

OUT 

Rli 

68 

404 

0194 

0 

04 5B 

RT 

i 

69 

406 

0196 

0 

0380 

LDFUQ 

RTWP 

l 

70 

408 

0198 

0 

6081 

WTUEY 

S 

Rl. R2i 

71 

410 

019A 

0 

7042 

QAZXC 

SB 

R2.  Rl; 

72 

412 

019C 

0 

1D0E 

PLMN 

SBO 

14i 

73 

414 

019E 

0 

1E14 

EFVBG 

SBZ 

20i 

74 

416 

01  AO 

0 

0701 

DCFE 

SETO 

Rli 

75 

418 

01 A2 

0 

0AC1 

POIJ 

SLA 

Rl. 

12; 

76 

420 

01A4 

0 

E081 

QUER 

SOC 

Rl.  R2i 

77 

422 

01A6 

0 

F042 

WALT 

SOCB 

R2>  Rli 

78 

424 

01  AS 

0 

08A2 

KLEE 

SRA 

R2. 

10i 

79 

426 

01 AA 

0 

OBC 1 

TJUF 

SRC 

Rl. 

12; 

80 

428 

01  AC 

0 

0982 

PETW 

SRL 

R2.  Bi 

81 

430 

01 AE 

0 

37C2 

SOWER 

STCR 

R2. 

15; 

82 

432 

01B0 

0 

02C 1 

WDFVE 

STST 

Rli 

83 

434 

01B2 

0 

02A1 

EVEFR 

STWP 

Rli 

84 

436 

01B4 

0 

06C1 

SWPB 

Rli 

85 

438 

01B6 

0 

4042 

PLKJH 

SZC 

R2,  Rli 

86 

440 

01B8 

0 

5042 

SKJHY 

SZCB 

R2.  Rli 

87 

442 

01BA 

0 

1F12 

LADWT 

TB 

IBi 

88 

444 

01BC 

0 

4558 

TEXT 

'EXAMPLE' 

414D 

504C 

45 

89 

451 

01C3 

0 

00 

EVEN 

) 

90 

452 

01C4 

0 

END 

} 
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****  IDENTIFIER  LISTING  **** 


NAME 

STATUS 

ADDRESS 

REG  UNDEF  MULT  DEF 

R0 

0  0000 

X 

R 1 

1  0001 

X 

R2 

2  0002 

X 

R3 

3  0003 

X 

R4 

4  0004 

X 

R5 

5  0005 

X 

R6 

6  0006 

X 

R7 

7  0007 

X 

R8 

8  0008 

X 

R9 

9  0009 

X 

RIO 

10  000 A 

X 

R 1 1 

11  OOOB 

X 

R 12 

12  OOOC 

X 

R 13 

13  OOOD 

X 

R14 

14  OOOE 

X 

R 1 5 

15  OOOF 

X 

JIM 

258  0102 

BILL 

282  01 1A 

JOE 

286  01  IE 

SID 

296  0128 

JOAN 

48  0030 

CNTHIA 

64  0040 

RAE 

337  0151 

SHIRA 

334  014E 

CAROL 

334  014E 

RAE 

337  0151 

QRTF 

374  0176 

PLKJ 

376  0178 

FHGDJ 

380  017C 

PYTRV 

384  0180 

HJFG 

388  0184 

SFD 

390  0186 

MR 

392  0188 

XZC 

394  018A 

WRQY 

396  01BC 

LKUY 

398  018E 

PQTYR 

402  0192 

LDFWQ 

406  0196 

WTUEY 

408  0198 

QAZXC 

410  019A 

PLMN 

412  019C 

EFVBG 

414  019E 

DCFE 

416  01A0 

POI J 

418  01A2 

QWER 

420  01A4 

WALT 

422  01A6 

KLEE 

424  01A8 

TJUF 

426  01AA 

PETM 

428  01  AC 

SDWER 

430  01 AE 

WDFVE 

432  01  BO 

EVEFR 

434  01B2 

PLKJH 

438  01B6 

SKJHY 

440  01B8 

LADWT 

442  01BA 

80 


APPENDIX  F 

MACHINE  CODE  GENERATED  FROM  APPENDIX  A  AS  INPUT 


81 


0100 

AO 

81 

BO 

42 

07 

41 

02 

21 

OA 

BC 

02 

42 

OA 

BC 

07 

41 

0110 

02 

21 

OA 

BC 

02 

42 

OA 

BC 

04 

41 

06 

82 

04 

02 

00 

41 

0120 

00 

00 

00 

00 

00 

00 

00 

00 

10 

80 

80 

42 

41 

42 

43 

44 

0130 

90 

81 

02 

81 

07 

FF 

04 

C2 

20 

42 

24 

42 

41 

42 

00 

23 

0140 

06 

01 

06 

42 

3C 

42 

02 

21 

00 

30 

02 

21 

01 

51 

41 

42 

0150 

EF 

00 

03 

40 

2C 

41 

05 

82 

05 

C2 

05 

41 

13 

E7 

15 

E6 

0160 

IB 

E5 

14 

E4 

1A 

E3 

12 

E2 

11 

El 

10 

EO 

17 

DF 

16 

DE 

0170 

19 

DD 

18 

DC 

1C 

DB 

32 

01 

02 

01 

OA 

BC 

03 

00 

OA 

BC 

0180 

02 

EO 

OA 

BC 

CO 

81 

DO 

81 

38 

42 

05 

01 

10 

00 

02 

61 

0190 

OA 

BC 

2C 

81 

04 

5B 

03 

80 

60 

81 

70 

42 

ID 

OE 

IE 

14 

01  AO 

07 

01 

OA 

Cl 

EO 

81 

FO 

42 

08 

A2 

03 

Cl 

09 

82 

37 

C2 

0 1B0 

02 

Cl 

02 

A1 

06 

Cl 

40 

42 

50 

42 

IF 

12 

45 

5B 

41 

4D 

01C0 

50 

4C 

45 

00 
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Copies 

1  CH0NR/430D 

1  NRL 

1  NSWC 

1  NUSC 

1  NOSC 

1  NAVSUP/0431C,  G.  Bernstein 

2  NAVSEA 

1  SEA  312 
1  SEA  612 

1  Rome  Air  Development  Center 

12  DTIC 

2  Texas  Instruments,  Inc. 

1  James  B.  Allen 

CENTER  DISTRIBUTION 


Code 

Name 

1576 

C.  Bell 

18 

G.  Gleissner 

1802.2 

F.  Frenkiel 

1803 

S.  Rainey 

1804 

L.  Avrunin 

1805 

E.  Cuthill 

1806 

R.  Santamaria 

1809.3 

D.  Harris 

182 

A.  Camara 

1821 

D.  Jefferson 

1822 

T.  Rhodes 

1824 

S.  Berkowitz 

1824 

J.  Carlberg 

1824 

J.  Garner 

1824 

P.  Marques 

1824 

I.  Zaritsky 

Code 

Name 

1826 

L. 

Culpepper 

1828 

C. 

Godfrey 

1828 

W. 

Gorham,  Jr 

184 

J. 

Schot 

184.1 

H. 

Feingold 

1843 

H. 

Haussling 

1844 

S. 

Dhir 

1844 

J. 

McKee 

185 

T. 

Cor  in 

1850 

A. 

Cinque 

1851 

J. 

Bra in  in 

1854 

H. 

Sheridan 

1855 

R. 

Brengs 

187 

R. 

Ploe 

187 

M. 

Zubkof f 

189 

G. 

Gray 

5211.1 
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522.2 
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